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Вступительное слово 


Объектно-ориентированный механизм языка программирования Рег1 
являет собой пример ловкости рук без всякого обмана. Он берет набор 
возможностей, не связанных с объектно-ориентированным стилем 
программирования, таких как пакеты, ссылки, хеши, массивы, под- 
программы и модули, и с помощью несложных заклинаний превраща- 
ет их в полнофункциональные объекты, классы и методы. 


Благодаря этому трюку программист, основываясь на своих познаниях 
языка Ре, может легко и просто перейти к объектно-ориентирован- 
ному стилю программирования, не преодолевая горы нового синтакси- 
са и не переплывая океаны новых технологий. Это также означает, что 
объектно-ориентированные возможности языка Рег| можно осваивать 
постепенно, по мере необходимости отбирая те, что наилучшим обра- 
зом подходят для решения поставленных задач. 


Однако здесь кроется одна проблема. Поскольку все эти пакеты, ссыл- 
ки, хеши, массивы, подпрограммы и модули составляют основу объ- 
ектно-ориентированного механизма, для использования объектно-ори- 
ентированных возможностей языка Рег| необходимо знать принципы 
работы с пакетами, ссылками, хешами, подпрограммами и модулями. 


Трудность именно в этом. Кривая обучения не исчезла, она всего лишь 
сократилась на полдесятка шагов. 


Какие же необъектно-ориентированные возможности языка Рег1 надо 
изучить, чтобы можно было взяться за объектно-ориентированные? 


Ответу на этот вопрос и посвящена данная книга. На ее страницах Рэн- 
дал, опираясь на 20-летний опыт работы с языком Рег| и 40-летний 
опыт просмотра фильмов «Остров Джиллигана» и «Мистер Эд», опи- 
сывает компоненты языка Ре!1, которые все вместе составляют фунда- 
мент его объектно-ориентированных возможностей. И, что еще лучше, 
на примерах показывает, как из этих компонентов создавать классы 
и объекты. 


Итак, если объекты языка Ре! | вызывают у вас чувства, подобные тем, 
которые испытал Джиллиган на необитаемом острове, эта книга – как 
раз то, что доктор прописал. 


Кроме того, вся информация в ней прямо из первых рук. 


— Дэмиан Конвей (Рап1ап Сопуау), май 2003 


Предисловие 


Более десяти лет тому назад (практически вечность по меркам Интер- 
нета) Рэндал Шварц написал первое издание книги «Іеагпіпе Рег|»!. 
За прошедшие годы сам Ре! из «крутого» языка сценариев, использу- 
емого в первую очередь системными администраторами ОМІХ, вырос 
в полноценный объектно-ориентированный язык программирования, 
способный функционировать на практически любой платформе, извест- 
ной человечеству. 


Объем всех четырех изданий «Геагпшя Ре!» оставался практически 
неизменным (примерно 300 страниц), как в основном неизменным ос- 
тавался и ее материал, рассчитанный на начинающих программистов. 
Однако времена изменились, и теперь о Рег! можно рассказать значи- 
тельно больше, чем когда появилось первое издание книги. 


Рэндал назвал первое издание книги «Геагишх Рег| Објесіѕ, Ве{егеп- 
сеѕ, апа Моде», а сейчас книга получила название «ибегте1афе 
Рег1» (Рег| средней сложности), но на наш взгляд ей больше подошло 
бы название «Геагишя Моге Рег» (Изучаем Рег глубже). Данная 
книга продолжает обсуждение тем с того места, где оно было законче- 
но в книге «Геагпіпе Рег». Здесь мы покажем вам, как писать боль- 
шие программы на языке Рег]. 


Как ив «Іеагпіпе Рег», мы старались сделать каждую главу настоль- 
ко маленькой, чтобы ее можно было прочитать за час-другой. Каждая 
глава заканчивается серией упражнений, которые помогут вам на 
практических примерах закрепить только что прочитанный материал. 
Кроме того, в конце книги вы найдете приложение, в котором содер- 
жатся решения всех упражнений. Как и в «Іеагпіпе Рег|», материал 
этой книги подается в той же последовательности, что и в курсах обу- 
чения языку Рег|, которые проводятся нами в компании Зіопеһепве 
Сопѕишііпе Зегу1сез. 


1 Рэндал Шварц, Том Кристиансен «Изучаем Регі». – Пер. сангл. – ВНУ-Ки- 
ев, 1999. 

2 Не спрашивайте, почему книга не была названа именно так. Мы получили 
более 300 предложений по этой теме. На самом деле невозможно прекра- 
тить изучение Рег], поэтому название «Изучаем Рег] глубже» фактически 
ничего не говорит о книге. Наш редактор выбрал название, которое говорит 
о том, чего следует ожидать от книги. 
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Чтобы извлечь максимум пользы из этой книги, вам необязательно 
быть гуру в ОМІХ и даже необязательно быть пользователем ОМІХ. 
Все, о чем говорится в этой книге, одинаково хоропто подходит как для 
У ш4о\мз АсйуеРе!, так и для любой другой современной реализации. 
Чтобы иметь возможность пользоваться этой книгой, вам необходимо 
ознакомиться с книгой «Геагпіпе Рег» и гореть желанием продолжать 
двигаться вперед. 


Структура книги 


Данную книгу следует читать, начиная с первых глав, в том порядке, 
вкаком они следуют, останавливаясь для выполнения упражнений. 
Материал каждой главы основан на предыдущих главах, и при обсуж- 
дении новой темы мы будем исходить из предположения, что предыду- 
щие главы уже были вами прочитаны. 


Глава 1 «Введение» 
Содержит вводные положения. 
Глава 2 «Основы» 


Описывает некоторые промежуточные положения, знание которых 
потребуется при прочтении оставшейся части книги. 


Глава 3 «Модули» 


Описывает порядок работы с основными модулями Ре!| и с модуля- 
ми сторонних производителей. Позже в этой же книге мы покажем, 
как создавать собственные модули, но в данной главе мы остано- 
вимся на использовании существующих модулей. 


Глава 4 «Введение в ссылки» 


Рассказывает о том, как организовать перенаправление, чтобы один 
и тот же программный код мог работать с различными наборами 
данных. 


Глава 5 «Ссылки и области видимости» 


Рассказывает о том, как Рег! работает с указателями на данные, 
и дает краткое введение в анонимные структуры данных и автови- 
вификацию. 


Глава 6 «Управление сложными структурами данных» 


Описывает создание структур данных с произвольной глубиной 
вложенности, включая массивы массивов и хеши хешей, обраще- 
ние к ним и вывод их содержимого. 


Глава 7 «Ссылки на подпрограммы» 


Описывает поведение анонимных подпрограмм, которые могут соз- 
даваться динамически для последующего использования. 
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Глава 8 «Ссылки на дескрипторы файлов» 


Описывает, как можно хранить дескрипторы файлов в скалярных 
переменных для передачи между различными частями программы 
или для сохранения в структурах данных. 


Глава 9 «Практические приемы работы со ссылками» 


Сложные операции сортировки, преобразование Шварца и работа 
с рекурсивно определенными данными. 


Глава 10 «Разработка больших программ» 


Рассматривает вопросы создания больших программ из нескольких 
файлов с программным кодом, разнесенным по разным пространст- 
вам имен. 


Глава 11 «Введение в объекты» 

Работа с классами, вызов методов, наследование и переопределение. 
Глава 12 «Объекты и данные» 

Экземпляры данных, конструкторы и методы доступа. 
Глава 13 «Уничтожение объектов» 


Описывает поведение объектов при уничтожении, включая объек- 
ты, существующие постоянно. 


Глава 14 «Дополнительные сведения об объектах» 


Множественное наследование, автоматические методы и ссылки на 
дескрипторы файлов. 


Глава 15 «Экспортирование» 


Как работает директива изе, как определить, что нужно экспорти- 
ровать, и как создать собственную процедуру импорта. 


Глава 16 «Создание дистрибутивов» 


Описывает порядок создания модулей, готовых к распростране- 
нию, включая платформонезависимые инструкции по установке. 


Глава 17 «Основы тестирования» 


Описывает порядок тестирования программного кода с целью про- 
верки его функциональности. 


Глава 18 «Дополнительные сведения о тестировании» 


Описываются более сложные аспекты тестирования программного 
кода и метаданных, такие как документация и покрытие тестами. 


Глава 19 «Передача модулей в СРАМ» 
Описывает, как можно отправить свои разработки в СРАМ. 


Приложение А содержит решения всех упражнений. 
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Типографские соглашения 


В книге приняты следующие соглашения по оформлению текста: 
Моноширинным шрифтом 


Выделены имена функций, модулей, файлов, переменных окруже- 
ния, фрагменты программного кода и пр. 


Курсивом 


Выделены наиболее важные моменты и вновь вводимые термины. 


Примеры программного кода 


Данная книга призвана помочь вам в работе. Вы можете вставлять 
примеры программного кода из этой книги в свои приложения и в до- 
кументацию, и для этого не надо обращаться в издательство О’ВеШу 
за разрешением. Например, если вы пишете программу и заимствуете 
несколько отрывков программного кода из книги, вам не нужно обра- 
щаться за разрешением. Не требуется разрешение и для цитирования 
данной книги или примеров из нее при ответе на вопросы. 


Если же вы собираетесь воспроизводить значительные фрагменты про- 
граммного кода из этой книги (например, в документации), то разре- 
шение необходимо. Разрешение нужно получить и в случае, если вы 
планируете продавать или распространять компакт-диски с примера- 
ми из этой книги. 


Мы не требуем добавлять ссылку на первоисточник при цитировании 
(но совсем не против этого). Под ссылкой на первоисточник мы подра- 
зумеваем указание авторов, издательства и І5ВМ, например «Іпіегте- 
діаѓе Ре, Ъу Вапда1 І. Зсһуагіх, Вгіар О. Еоу, апа Тот Рћоепіх. Сору- 
гієћ 2006 О’БеШу Меаіа, Іпс., 0-596-10206-2». 


За получением разрешения на использование значительных объемов 
программного кода примеров из этой книги обращайтесь по адресу рег- 
тізѕіопѕ(@огеіШу.сот. 


Отзывы и предложения 


С вопросами и предложениями, касающимися этой книги, обращай- 
тесь в издательство: 


О’ВешШу Меаіа 

1005 Стауепѕёеіп Ніесћуау Могіћ 

Беразфоро1, СА 95472 

(800) 998-9938 (в Соединенных Штатах Америки или в Канаде) 
(707) 829-0515 (международный) 

(707) 829-0104 (факс) 
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Список опечаток, файлы с примерами и другую дополнительную ин- 
формацию вы найдете на сайте книги: 


ВИр: / /шши.отеШу.сот/ салаю# /іпіегтейіаіерегі 


Свои пожелания и вопросы технического характера отправляйте по 
адресу: 
БооЕдиезнопз@отгеу.сот 


Дополнительную информацию о книгах, обсуждения, центр ресурсов 
издательства О’ВеШу вы найдете на сайте: 


ВИр:/ /шшш.отеШу.сот 


Ѕаѓагі ЕпаЫеа 


$ | = Если на обложке книги есть пиктограмма «Ѕаѓагі® Епаеа» , 
а агі это означает, что книга доступна в Сети через О’ВеШу М№е{- 


уогК Ѕаѓагі Воокзћһеі1. 


БаРат1 предлагает намного лучшее решение, чем электронные книги. 
Это виртуальная библиотека, позволяющая без труда находить тысячи 
лучших технических книг, вырезать и вставлять примеры кода, за- 
гружать главы и находить быстрые ответы, когда требуется наиболее 
верная и свежая информация. Она свободно доступна по адресу ћіір:// 
ѕаўагі.огеіШу.сот. 


Благодарности 


Рэндал. В предисловии к первому изданию книги «Геагошх Рег1» я 
выразил свою признательность Бивертону Мак-Менамину (Веауегіоп 
МеМепатіп) – владельцу паба Седаг Ні1ѕ (Кедровые холмы), что нахо- 
дится рядом с моим домом, за бесплатно предоставленный кабинет, где 
я имел обыкновение писать черновики книги на моем Ро\мегрооК 140. 
Этот паб стал для меня талисманом, приносящим удачу. Практически 
все свои книги (включая и эти слова) я писал здесь и очень надеюсь, 
что удача мне не изменит и на этот раз! 


Теперь в этом пабе подают прекрасное пиво, сваренное тут же в малень- 
кой пивоварне, и сладкие сэндвичи, но пропала моя любимая хлебная 
пицца, которую заменили ежевичным коктейлем (местный рецепт) 
и острой джамбалайей. (Кроме того, здесь появились два новых кабине- 
та и несколько столов.) Ну а вместо РоуегроокК 140 у меня теперь более 
современный Тіќапішт Ро\мегфоок, у которого диск в 1000 раз больше, 
оперативной памяти в 500 раз больше и процессор в 200 раз быстрее. 
На нем установлена полноценная ОМІХ-подобная операционная систе- 
ма (О5 Х) вместо ограниченной версии Мас ОЗ. Все свои черновики 
(включая и этот) я отправляю через модем сотового телефона на скоро- 
сти 144 К, могу напрямую общаться со своими рецензентами, и мне не 
нужно возвращаться домой к моему модему, передающему данные по 
телефонной линии со скоростью 9600 бод. Как изменились времена! 
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Еще раз большое спасибо всем, кто работает в «Кедровых холмах», за 
их неизменное гостеприимство. 


Как и в четвертом издании книги «Іеагпіпє Рег», я должен отметить, 
что многим обязан своим студентам из Б4оперепее Сопза пя Ѕегуісеѕ 
за их каверзные (?) вопросы, которые появлялись, когда сложность 
материала превышала уровень их подготовки. Благодаря им я смог 
продолжить совершенствование материала, который лег в основу этой 
книги. 


Следует заметить, что все началось с полудневного курса «Что нового 
в Рег] 5?» Марджи Левин (Магғоіе Геуіпе) из 5Шсоп Сгарћһісѕ, а также 
моего собственного четырехдневного курса «Лама» (Шата) (в то время 
основанного на Рег1 версии 4). Со временем у меня возникла идея пре- 
вратить эти короткие заметки в полноценный курс и подтолкнуть со- 
трудника компании Ѕёопеһепсе Джозефа Холла (Јоѕерһ На!) к учас- 
тию в решении этой задачи. (Он один из тех, кто отбирал примеры про- 
граммного кода для курса.) Джозеф разработал двухдневный курс для 
Обопепепее и одновременно написал прекрасную книгу «ЕЁесйуе Рег1 
Ргозгати тя» , которая затем стала использоваться как учебник. 


За эти годы в разработке курса «Пакеты, ссылки, объекты и модули» 
принимали участие многие преподаватели из Ѕёопеһепсе, включая 
Чипа Зальценберга (Сыр ЅаІлепреге) и Тэда Мак-Клеллана (Теа 
МеС1еПап). Но большая часть изменений и дополнений была внесена 
Томом Фениксом (Тот Рһоепіх), который становился «служащим ме- 
сяца» в компании Эб$опепепее настолько часто, что мне, наверное, при- 
дется уступить ему мое привилегированное место на парковке. Том от- 
лично управляется с материалами (как Тэд управляется с делами), 
благодаря чему я могу спокойно сосредоточиться на своих обязаннос- 
тях президента и дворника компании Зіопеһепее. 


Том Феникс написал большую часть примеров для этой книги и свое- 
временно предоставлял свои рецензии во время моей работы над кни- 
гой. Его рукой были написаны целые абзацы, так что мне оставалось 
только вставлять их на место той бессмыслицы, что была написана 
мною. У нас получилась отличная команда, которая дружно работает 
и ваудитории, и над книгой. Именно за приложенные усилия мы при- 
знали Тома соавтором, но я готов взять всю вину на себя, если какая- 
либо часть книги вам не понравится, потому что, скорее всего, в этом 
нет вины Тома. 


И последний, но не в последнюю очередь, кому я хотел бы выразить 
свою благодарность, – это Брайан Д. Фой (ап а ѓоу), который примк- 
нул к работе над книгой, начиная со второго ее издания, и предложил 
массу изменений и дополнений к этому изданию. 


Разумеется, книга не состоялась бы, не будь темы для обсуждения 
и каналов распространения, поэтому я хочу выразить свою призна- 
тельность Ларри Уоллу (Гаггу У’аП) и Тиму О’Рейли (Тіт О’ВеШу). 
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Спасибо вам, ребята, за то что вы создали компанию, которая оплачи- 
вала мне мои затраты в течение 15 последних лет. 


И, как обычно, отдельное спасибо Лейле и Джеку, которые научили 
меня всему, что я знаю о писательской деятельности, и убедили меня 
в том, что я должен быть чуть большим (?), чем программист, который 
умеет писать. Благодаря им я стал писателем, который умеет програм- 
мировать. Спасибо вам. 


Спасибо и вам, уважаемый читатель. Именно для вас я трудился дол- 
гие часы, потягивая холодное пиво и поедая пудинг, стараясь не залить 
клавиатуру моего ноутбука. Спасибо вам за то, что вы читаете мою кни- 
гу. Я искренне надеюсь, что внес свой вклад (пусть и незначительный) 
в ваше образование. Если вы встретите меня когда-нибудь на улице, 
просто скажите: «Привет!» .1 Мне это будет приятно. Спасибо вам. 


Брайан. В первую очередь я хотел бы сказать спасибо Рэндалу, так как 
впервые я познакомился с Ре! благодаря первому изданию его книги 
«Геагпшя Рег1» и многое узнал, преподавая курсы «Лама» и «Альпа- 
ка» в компании Ѕіопеһепее Сопзиш=. Учить других — часто лучший 
способ научиться самому. 


Мне удалось убедить Рэндала в необходимости обновить книгу «Геагп- 
шо Рег», а когда эта работа была закончена, я заметил ему, что пора 
обновить и эту книгу. Наш редактор Элисон Рэндал (АШзоп Бапаа!1) 
согласилась с этим и приложила максимум усилий, чтобы не нару- 
шить наш график. 


Отдельное спасибо Стейси (Эбасеу), Бастеру (Виѕїег), Мими (Міті), 
Роско (Коѕсо), Амелии (Ашейа), Лиле (141а) и всем тем, кто пытался от- 
влечь меня от работы, когда я был занят. 


От нас обоих. Спасибо нашим рецензентам: Дэвиду Адлеру (рауіа Н. 
А ег), Стефену Дженкинсу (Ѕіерһеп Јепҝкіпѕ), Кевину Мельтцеру 
(Кеуіп Ме{2ег), Мэттью Масгрову (Ма ем Миѕегоуе), Эндрю Сэвид- 
жу (Апагем Зау1е) и Риккардо Сигнесу (В4саг4о Ѕієпеѕ) за их коммен- 
тарии к рукописи этой книги. 


Спасибо нашим студентам, которые помогли нам понять, какие части 
курса необходимо пересмотреть и дополнить. Именно благодаря вам 
мы испытываем чувство гордости за свою работу. 


Спасибо членам группы Рег Мопеегѕ, кто принимал нас в своих горо- 
дах как родных. Давайте встретимся еще когда-нибудь. 


И наконец, огромное спасибо Ларри Уоллу за его большие и мощные 
игрушки, которые позволили нам сделать свою работу намного быст- 
рее, проще и с увлечением. 


1 Ктому же вы можете спросить меня что-нибудь о Рег]. Я не возражаю. 


Введение 


Добро пожаловать в следующий этап изучения языка программирова- 
ния Рег]. Вероятно, вы здесь или для того, чтобы научиться писать 
программы длиннее 100 строк, или по принуждению своего босса. 


Наша предыдущая книга «Геагпшя Рег1» была такой большой, потому 
что она представляет собой введение в язык программирования Рег] 
иего использование для написания маленьких и средних программ 
(которые, по нашим наблюдениям, составляют большую часть кода, 
написанного на языке Рег1). Чтобы избежать увеличения объема кни- 
ги под кодовым названием «Лама», мы намеренно и очень аккуратно 
оставили за бортом довольно много информации. 


На следующих страницах вы найдете «продолжение истории», изло- 
женной в том же дружественном стиле. Она содержит сведения, знать 
которые совершенно необходимо, если вы собираетесь писать програм- 
мы длиной от 100 до 10 000 строк. 


Например, вы узнаете, как организовать коллективную работу над про- 
ектом. Это просто здорово, потому что если вы не собираетесь работать 
по 35 часов каждый день, вам наверняка потребуется помощь при реше- 
нии крупных задач. Вам также придется обеспечивать совместимость 
программного кода, написанного различными программистами, чтобы 
свести результаты коллективного труда в единое приложение. 


В этой книге также показано, как работать с большими и сложными 
структурами данных, которые мы небрежно называем «хешами хе- 
шей», или «массивами массивов хешей массивов». Познакомившись 
со ссылками поближе, вы сможете управлять структурами данных 
произвольной сложности. 


Затем мы перейдем к заслуживающим внимания понятиям объектно- 
ориентированного программирования (ООП), которое поможет вам по- 
вторно использовать части своего (а может быть, и чужого) программно- 


20 


Глава 1. Введение 


го кода с минимальными переделками. Вы без труда разберетесь в этой 
теме, даже если никогда раньше не сталкивались с объектами. 


Немаловажным аспектом коллективной разработки является циклич- 
ность выпуска новых версий и разработка тестов для проведения мо- 
дульного и интеграционного тестирования. Здесь вы получите основ- 
ные сведения о создании дистрибутивных пакетов и разработке модуль- 
ных тестов, которые могут применяться как в процессе работы над при- 
ложением, так и для окончательного тестирования готового продукта. 


И наконец, точно так же, как и в предыдущих изданиях «Геагпіпе 
Рег1», мы будем развлекать вас интересными примерами и плохими ка- 
ламбурами. (Мы отправили-таки Фреда (Егеа), Барни (Вагпеу), Бетти 
(Вейу) и Уилму (\/Шта) по домам. А на новые роли пригласили звезд.) 


Что вы должны знать? 


Предполагается, что вы уже прочитали книгу «Геагпшя Ре!» или по 
крайней мере делаете вид, что уже достаточно наигрались с Ре! и об- 
ладаете базовыми знаниями. В этой книге, например, не рассказыва- 
ется, как обращаться к элементам массива или как вернуть некоторое 
значение из подпрограммы. 


Как минимум вы должны знать; 
• Как запускать в своей системе программы, написанные на Ре! 1 
® Три основных типа переменных в Рег: скаляры, массивы и хеши 


® Конструкции управления ходом исполнения, такие как \м111е, Гог 
и Ғогеасћ 


® Что такое подпрограммы 
® Операторы языка Рет1|, такие как дгер, пар, ѕогі и ргіпі 


® Функции работы с файлами, такие как ореп, функции чтения из 
файлов и -Х (тестирование файлов) 


В этой книге вы сможете получить более глубокие знания по данным 
темам, но мы полагаем, что основы вы уже знаете. 


Как быть со сносками? 


Как и в книге «Геагпіпе Ре», некоторые дополнительные сведения, 
знание которых не обязательно при первом прочтении, оформлены в ви- 
де сносок.! При первом прочтении их можно пропустить, но при по- 
вторном было бы желательно прочитать и их. В сносках нет ничего та- 
кого, что было бы необходимо для понимания остального материала. 


1 Таких, как эта. 
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Как быть с упражнениями? 


Тренировки помогают усвоить материал. А лучший способ потрениро- 
ваться — выполнить несколько упражнений после каждого получасово- 
го изучения очередной темы. Разумеется, если вы читаете достаточно 
быстро, то до конца главы доберетесь немного быстрее, чем за полчаса. 
Приостановитесь, сделайте передышку и выполните упражнения! 


Каждое упражнение едва ли займет больше пары минут. Это время со- 
ответствует середине колоколообразной кривой, однако будет совсем 
неплохо, если у вас это займет чуть больше или чуть меньше времени. 
Иногда время решения упражнений зависит лишь от того, насколько 
часто вам приходилось сталкиваться с решением подобных задач. Так 
что это время - всего лишь ориентир. 


Ответы к упражнениям приведены в приложении. Однако попробуйте 
не заглядывать туда, иначе вы снизите обучающую ценность упраж- 
нения. 


Что делать, если я преподаю Ре!!? 


Если вы преподаете язык программирования Рег1 и решили использо- 
вать эту книгу в качестве учебного пособия, то должны понимать, что 
каждый набор упражнений слишком короток для большинства студен- 
тов, чтобы занять их на полные 45 минут. Одни упражнения отнимут 
больше времени, другие меньше. Мы обнаружили этот факт лишь по- 
сле того, как расставили эти маленькие числа в квадратных скобках. 


Итак, приступим. Обучение начнется, как только вы перевернете стра- 
ницу... 


Основы 


Прежде чем приступить к изучению основного материала, рассмотрим 
некоторые понятия языка Рег1, которыми мы будем оперировать в этой 
книге и которые обычно не попадают в фокус внимания начинающих 
программистов. Попутно мы представим персонажей, которые встре- 
тятся нам в этой книге. 


Операторы списков 


Вы уже наверняка знаете несколько операторов Рег1, предназначен- 
ных для работы со списками, но скорее всего вы и предположить не 
могли, что эти операторы работают именно со списками. Из них чаще 
остальных, пожалуй, применяется оператор ргіпі. Он может прини- 
мать один или несколько аргументов и связывает их в единое целое.! 


ргіпі `Кораблекрушение потерпели двое `, ‘'Джиллиган’, °’и'’, 'Шкипер’, “\п”; 


Для работы со списками предназначен еще целый ряд операторов, о ко- 
торых вы уже узнали из книги «Іеагпіпе Рег|». Оператор зог{ упоря- 
дочивает входной список. В известной песне? потерпевшие корабле- 
крушение упоминаются не в алфавитном порядке, однако мы можем 
исправить этот недостаток с помощью оператора ѕогї. 


ту @саѕ+амауѕ = ѕогі ам(Джиллиган Шкипер Джинджер Профессор Мери-Энн); 


1 Вэтой книге текстовые константы в программном коде переведены на рус- 
ский язык. Работоспособность кода была проверена в трех операционных 
системах — Міпдо%ѕ 98, Глпах Мапайуа 2006 и ОМХ 6.3.0 - в тех реализа- 
циях Рег] 5.хх, которые были последними для каждой из ОС на момент пе- 
ревода книги. – Примеч. науч. ред. 

2 Вбалладе об острове Джиллигана («Тһе ВаПаа о{ ЧИ хап?”з І51е»), написан- 
ной Джорджем Уайлом (Сеогге Му1Іе) и Шервудом Шварцем (Ѕһегуооа 
Бсп\магф2). 
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Оператор геуегѕе возвращает список в обратном порядке. 
ту @саѕ+амауѕ = геуегзе ам(Джиллиган Шкипер Джинджер Профессор Мери-Энн); 


В языке Рег| имеется масса других операторов, которые работают со 
списками, и, как только вы научитесь использовать их, вы обнаружи- 
те, что объем ввода с клавиатуры уменьшился, а вапти намерения ста- 
ли выражаться более ясно. 


Фильтрация списков с помощью дгер 


Оператор дгер принимает список значений и «условное выражение». 
Он извлекает из списка одно значение за другим и помещает их в пере- 
менную $_. После этого производится вычисление условного выраже- 
ния в скалярном контексте. Если в результате получается «истина», 
дгер передает значение $_ в выходной список. 


ту @1ипсп_спо1сез = дгер &1$_е9161е($_), @0111ідапѕ роѕеѕѕіопз. 


В списочном контексте оператор дгер возвращает список всех прошед- 
ших проверку элементов, а в скалярном - количество отобранных эле- 
ментов. 


ту @геѕи115 = дгер ЕХРА, @іприт 1151; 
ту Фсоџпі = дгер ЕХРН, @іприї 11$ї; 


В данном случае ЕХРН означает любое скалярное выражение, которое 
должно выполнить проверку значения переменной $_ (явно или неяв- 
но). Например, чтобы отыскать все числа больше 10, в условном выра- 
жении можно сравнить переменную $_ со значением 10. 


ту @іприї пимбегз = (1, 2, 4, 8, 16, 32, 64); 
ту @ріддег +һап 10 = дгер $_ > 10, @1приЕ питбегз; 


В результате будет получена последовательность чисел 16, 32 и 64. 
Здесь имеет место явное обращение к переменной $_. В следующем 
примере показано косвенное обращение к этой переменной из операто- 
ра поиска по шаблону: 


ту @епа іп 4 = огер /4$/, @іприї питрегз; 
Теперь мы получим числа 4и 64. 


Оператор дгер запоминает оригинальное значение переменной $_ и вос- 
станавливает его по окончании работы. Переменная $_ — это не просто 
копия элемента данных, на самом деле ее можно рассматривать как 
псевдоним фактического элемента, чем-то похожего на переменную 
цикла Гогеасп. 


Если условное выражение достаточно сложное, его можно оформить 
в виде подпрограммы: 


ту @ода 010ії зим = дгер 91911 зит іѕ 000($ ), @іприї питрегз; 


ѕир 91911 ѕит 1ѕ ода { 
ту Фіпри = ѕһі#ї; 
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ту @91911$ = $0111 //, $іприї; # Предполагается, что элемент списка 
# содержит только цифровые символы 

ту Фит; 

$зит += $_ Гог @010115; 

гефигп $зит % 2; 


} 


Теперь мы получим список, содержащий числа 1, 16 и 32. Суммы 
цифр этих чисел при делении на 2, выполняемом в последней строке 
подпрограммы, дают остаток 1, что расценивается оператором одгер 
как «истина». 


Синтаксис оператора дгер имеет две формы. Только что мы продемон- 
стрировали форму выражения, а сейчас покажем блочную. Применяя 
такую форму записи вместо явного определения подпрограммы, кото- 
рая служит для проверки в единственном месте, мы можем поместить 
тело подпрограммы прямо в оператор дгер:1 


ту @гези1{$ = дгер { 

блок; 
программного; 
ода; 
} @іпри+ 1151; 


ту Фсоџпі = дгер { 
блок; 
программного; 
ода; 
} @іпри+ 1151; 


Точно так же, как и при записи в форме выражения, оператор огер на 
время помещает очередной элемент входного списка в переменную $_. 
Затем исполняется блок программного кода. Результат последнего вы- 
ражения в блоке определяет конечный результат выполнения всего 
блока. (Как и любое другое условное выражение, оно вычисляется 
в скалярном контексте.) Поскольку теперь у нас имеется целый блок, 
мы можем внутри него работать с переменными, область видимости 
которых будет ограничена данным блоком. Перепишем предыдущий 
пример, придерживаясь блочного синтаксиса: 


ту @ода 0101ї ѕит = дгер { 
ту Фіприї = $; 
ту @91911$ = ѕр1ії //, $іприї; # Предполагается, что элемент списка 
# содержит только цифровые символы 
ту Фит; 
$зит += $_ Гог @010115; 
фит % 2; 
} @іпри+ пиптрегѕ; 


1 Вблочной форме записи символ запятой между блоком и входным списком 
не ставится. Когда оператор дгер записывается в форме выражения, запя- 
тая между условным выражением и списком ставится обязательно. 
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Обратите внимание на два отличия: входные значения теперь извлека- 
ются из переменной $_, а не из списка переданных аргументов, а кроме 
того, мы убрали оператор геїигп. Оставить его было бы ошибкой, пото- 
му что теперь мы находимся уже не внутри подпрограммы, а в блоке 
кода.! Разумеется, мы можем оптимизировать этот блок, отказавшись 
от промежуточных переменных: 


ту @ода 019ії ѕит = дгер { 
ту Фит; 
фит += $_ Рог ѕр1ії //; 
фит % 2; 
} @іпри+_пиптрегѕ; 


Не бойтесь описывать ход исполнения более явно, если это поможет 
вам и вашим коллегам точнее понимать и сопровождать программный 
код. Это главный приоритет. 


Преобразование списка с помощью оператора тар 


Оператор пар обладает похожим синтаксисом, и во многом его дейст- 
вия напоминают оператор огер. Например, он временно помещает эле- 
менты списка друг за другом в переменную $_ и допускает две формы 
записи: в форме выражения и в форме блока. 


Однако это выражение отображения (тарртз ехргезз1оп), а не услов- 
ное выражение. Выражение оператора пар вычисляется в списочном 
контексте (а не в скалярном, как в 0гер). Каждое обращение к выраже- 
нию дает часть полного результата. Полный результат представляет 
собой список из частных результатов. В скалярном контексте пар воз- 
вращает количество элементов, возвращаемых в списочном контексте. 
Однако оператор пар очень редко встречается в скалярном контексте 
(если вообще встречается). 


Начнем с простого примера: 


ту @іприї пимбегз = (1, 2, 4, 8, 16, 32, 64); 
ту @гези1{ = тар $_ + 100, @іприї питрегѕ; 


Оператор тар поместит каждый из семи элементов списка в перемен- 
ную $_, в результате мы получим список, где каждому входному числу 
будет соответствовать единственный результат — число, которое боль- 
ше исходного на 100. Таким образом, в списке @геѕи1ї будут находить- 
ся числа 101, 102, 104, 108, 116, 132 и 164. 


Однако каждому элементу входного списка может соответствовать и не- 
сколько элементов в выходном списке. Посмотрим, что произойдет, ес- 
ли в результате обработки каждого входного элемента будут получать- 
ся два выходных элемента: 


1 Вызов оператора геїигп привел бы к выходу из подпрограммы, которая со- 
держит данный блок кода. Некоторые из нас сталкивались с этой ошибкой 
в своих первых работах. 
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ту @геѕи1ї = тар { $, 3 * $ } @іприї_ питрегѕ; 


Теперь каждому входному элементу у нас соответствуют два выход- 
ных: 1, 3, 2, 6, 4, 12, 8, 24, 16, 48, 32, 96, 64 и 192. Мы можем сохра- 
нить эти пары чисел в виде хеша, если потребуется определить значе- 
ния чисел в три раза больших степеней двойки: 


ту %ћаѕһ = @геѕи1ї; 
Или, если обойтись без промежуточных переменных: 
пу Упазй = тар { $_, 3 * $_ } @іпри+ питрегѕ; 


Как видите, оператор пар отличается высокой степенью гибкости - он 
позволяет создать для каждого входного элемента произвольное число 
выходных элементов. При этом для каждого входного элемента число 
выходных элементов может быть и разным. Посмотрим, что произой- 
дет, если мы попытаемся разбить числа на отдельные цифры: 


пу @гези1{ = тар { $0111 //, $_ } @1приЕ питрегѕ; 


Внутри блока числа разделяются на цифры. Для чисел 1, 2, 4и8 мы 
получим по одному результату. Для чисел 16, 32 и 64 – по два. Когда 
оператор пар объединит результаты, получится список 1, 2, 4, 8, 1, 6, 
3,2, би4. 


Если в результате вычисления выражения для некоторого элемента 
входного списка получается пустой список, оператор тар просто не 
вставляет его в конечный результат. Эту особенность можно использо- 
вать для выборки определенных элементов. Допустим, что нам надо ото- 
брать только отделенные (см. выше) цифры, если последняя из них 4: 


ту @геѕи1+ = мар { 
пу @дідіїѕ = $=р1ії //, $; 
іР ($91911$[-1] == 4) {< 
@01011$ 
} е1ѕе { 
С); 
} 


} @1приЕ_питбегз; 


Если она равна 4, то в результате оценки выражения 6019115 (в списоч- 
ном контексте) возвращаются отделенные цифры. Если же не равна, 
возвращается пустой список, и результат для заданного входного эле- 
мента удаляется. Таким образом, оператор пар может применяться 
вместо оператора дгер, но не наоборот. 


Разумеется, все, что можно сделать с помощью операторов дгер и пар, 
можно сделать и с помощью циклов ѓогеасћ. Но точно так же можно 
программировать и на ассемблере или даже в машинных кодах.! Дело 
не в том, как можно реализовать тот или иной алгоритм, а в том, что 


1 Если вы достаточно давно работаете с вычислительной техникой, чтобы 
знать о существовании машинных кодов. 
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операторы дгер и пар позволяют уменьшить сложность программы 
и сконцентрироваться на решении задач высокого уровня, не отвлека- 
ясь на детали. 


Организация ловушек ошибок с помощью ема! 


Нередко исполнение обычных строк программного кода приводит к ава- 
рийному завершению программы, если что-то идет не так, как ожи- 
далось. 


ту Фауегаде = $тота1 / фсоипі; # деление на ноль? 
ри1пЕ “окау\п” ип1езз /Фтаїсһ/; # ошибочный шаблон? 


ореп МІММОМ, '`>5һір. їх’ 
ог аіе "Невозможно создать файл 'ѕһір.їхі': $1"; # недостаточно прав? 


&ітр1етепї ($) ҒРогеасһ @геѕсие ѕсһете; # ошибка внутри подпрограммы? 


Однако незапланированный ход событий вовсе не означает, что надо 
смириться с аварийным завершением программы. Для вылавливания 
разного рода ошибок РегІ предоставляет оператор е\а1. 


еуа1 { $ауегаде = $1оїа1 / $соџпї }; 


Если во время исполнения блока еуа] произойдет ошибка, это уже не 
приведет к завершению всей программы, просто управление будет пе- 
редано строке, следующей сразу же за блоком еуа1. Обычно после ис- 
полнения оператора еуа]1 проверяется значение переменной $0, кото- 
рая будет содержать пустое значение (в случае отсутствия ошибки) 
или строку с сообщением об ошибке, например «01\19е Бу тего». 


еуа1 { $ауегаде = $1оїа1 / $соџпї }; 
ргіпі "Продолжение после ошибки: $@” і? $@; 


е\уа1 { &геѕсие ѕсһете_42 } ; 
ргіпі "Продолжение после ошибки: $@” ЇР $6; 


Сразу за блоком еуа1 необходимо ставить символ точка с запятой, по- 
скольку еүа1ї – это функция (а не управляющая конструкция, как, на- 
пример, і? или мһі1е). Но сам блок является самым настоящим бло- 
ком, и в нем можно определять локальные переменные (переменные 
пу) и любые другие операторы. Как и любая другая функция, еуа1 име- 
ет возвращаемое значение (значение последнего выражения или зна- 
чение, возвращаемое оператором геіџгп). Разумеется, если в процессе 
исполнения блока кода произойдет ошибка, никакого значения воз- 
вращено не будет, то есть будет получено значение ипде? в скалярном 
контексте или пустой список в списочном. Это позволяет оформлять 
безопасное вычисление выражений так: 


ту Фауегаде = еуа1 { $+о+а1 / $соџпї } ; 


Теперь переменная $ауегаде будет содержать либо частное от деления, 
либо значение ипіеѓ в зависимости от того, насколько успешно завер- 
шилась операция деления. 
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Рег! поддерживает даже вложенные блоки е\а1. Это позволяет отлав- 
ливать ошибки во вложенных подпрограммах. Но е\а1 не может пере- 
хватывать фатальные ошибки, которые приводят к краху самого Рег]. 
Сюда можно отнести получение сигнала,! который нельзя перехва- 
тить, ошибка нехватки памяти и прочие катастрофические ситуации. 
Оператор е\уа1 не может применяться и для вылавливания синтаксиче- 
ских ошибок, поскольку компиляция блока еуа1 производится одно- 
временно с остальной частью программы, а не во время исполнения. 
Он не может перехватывать предупреждения (хотя Рег дает такую 
возможность с помощью $514{_ МАВМ__}). 


Исполнение программного кода, 
созданного динамически 


Существует еще одна форма обращения к оператору е\а1, когда в каче- 
стве параметра выступает не блок кода, а строка. В этом случае компи- 
ляция и исполнение строки производятся уже во время исполнения 
программы. Такая возможность выглядит очень удобной и полезной, но 
она чрезвычайно опасна, если в строку могут попасть данные, получен- 
ные из ненадежного источника. Мы не рекомендуем вычислять строко- 
вые выражения с помощью оператора е\а1, разве что в исключительных 
случаях. Мы рассмотрим эту возможность чуть позже, и, кроме того, 
вы наверняка встретите такую форму записи оператора еуа1 в чужих 
программах, поэтому мы покажем, как она применяется на практике: 


е\а1 '$3ит=2 +2’; 
ргіпі “Сумма = $зим\п”; 


Ре! выполнит это выражение в контексте окружающего программно- 
го кода, т.е. практически точно так же, как если бы это выражение 
было оформлено обычным образом. Результатом оператора е\а1 явля- 
ется результат вычисления последнего выражения, поэтому совер- 
шенно необязательно вставлять весь блок операторов в строку е\а1. 


#1 /иѕг/оіп/рег1 


Ғогеасһ ту Форегаїог ( ам(+ - + /) ) { 
ту Фгеѕи1 = еуа1 "2 $орегаїог 2"; 
ргіпі "2 форегаїог 2 = $геѕи11\п”; 

} 


Здесь в цикле выполняется перебор операторов + - х /, и каждый из 
них поочередно работает внутри блока кода оператора ехуа1. В строке, 
которая передается оператору еуа1 , значение переменной $орегаіог ин- 
терполируется в строку. После этого еуа1 исполняет программный код, 
заключенный в строковую переменную, и возвращает результат по- 
следнего выражения, который записывается в переменную $гези1 +. 


1 Имеются в виду сигналы ОМІХ, например 8ІСКШ.. – Примеч. науч. ред. 
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Если еуаї не сможет скомпилировать и исполнить программный код 
строки, которая ему была передана, мы получим точно такое же значе- 
ние переменной $6, как и в случае использования е\уа1 в блочной фор- 
ме. В следующем примере мы хотели перехватить ошибку деления на 
ноль, но в результате не смогли разделить число на «ничто» (еще одна 
разновидность ошибки). 


ргіпі ‘Частное: ‘, еуа1 ‘5 /’, "\п”; 
магп $@ 11 $6; 


Оператор е\а1 перехватит синтаксическую ошибку и запишет сообще- 
ние в переменную $6, что мы проверяем сразу же после вызова е\а1. 


Частное: 
зупфах еггог аї (еуа1 1) 1іпе 2, аї ЕДЕ 


Далее, в главах 10, 17 и 18, мы рассмотрим применение еуа] для за- 
грузки необязательных модулей. Если Ре! оказывается не в состоя- 
нии загрузить какой-либо модуль, он обычно останавливает исполне- 
ние программы. Мы будем перехватывать эту ошибку и продолжать 
работу программы. 


На всякий случай, если вы пропустили наше предыдущее предупреж- 
дение, напомним еще раз: используйте эту форму оператора еуа1 толь- 
ко в исключительных случаях. Если есть возможность выполнить те 
же самые действия другим способом, попробуйте сначала реализовать 
его. Мы обратимся к данной возможности в главе 10 для загрузки про- 
граммного кода из внешнего файла, но при этом мы продемонстриру- 
ем другой, более интересный способ сделать то же самое. 


Упражнения 


Ответы на эти вопросы вы найдете в приложении А в разделе «Ответы 
к главе 2». 


Упражнение 1 [15 мин] 


Напишите программу, которая принимала бы из командной строки 
список файлов и отбирала бы с помощью оператора дгер те из них, раз- 
мер которых не превышает 1000 байт. Воспользуйтесь оператором пар, 
чтобы перед каждым полученным в результате именем файла вставить 
четыре пробела и символ перевода строки после имени. Выведите по- 
лучившийся список. 


Упражнение 2 [25 мин] 


Напишите программу, которая просила бы пользователя ввести шаб- 
лон (регулярное выражение). Строка должна вводиться с клавиатуры, 
а не приниматься в виде аргумента командной строки. Из заранее оп- 
ределенного каталога (например, /еіс или с: \\шіпӣошѕ) выведите спи- 
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сок файлов, чьи имена совпадают с введенным шаблоном. Программа 
должна продолжать работу до тех пор, пока пользователь не введет 
в качестве птаблона пустую строку. Пользователь не должен вводить 
символы слэша, которые в Рег| традиционно служат для разграниче- 
ния шаблонов. Вводимые шаблоны должны разделяться символом пе- 
ревода строки. Постарайтесь обеспечить устойчивость программы 
к ошибкам в шаблонах, таким как отсутствие парных скобок. 


Модули 


Модули — это строительные блоки наших программ. Они содержат 
вспомогательные подпрограммы, переменные и даже классы. По ходу 
обучения строительству собственных модулей рассмотрим некоторые 
стандартные модули, которые могут представлять для вас интерес. 
Мы также рассмотрим основы работы с модулями, которые написали 
другие разработчики. 


Стандартный дистрибутив 


Самые популярные модули уже входят в дистрибутивы Рег|. В самых 
современных дистрибутивах модули занимают более 50 мегабайт. В ди- 
стрибутиве Рег1 5.003 07, выпущенном в октябре 1996 года, количест- 
во модулей составило 98. На начало 2006 года в дистрибутиве Ре!1 5.8.8 
их было уже 359.1 Одно из преимуществ Рег] состоит в том, что он по- 
ставляется с большим количеством готового к использованию про- 
граммного кода, избавляя вас от необходимости самостоятельно вы- 
полнять значительные объемы работ. 


Мы будем стараться указывать, какие модули включаются в дистри- 
бутив Рег! (и о большинстве из них попутно будем уточнять, начиная 
с какой версии эти модули вошли в дистрибутив). Мы будем называть 
эти модули «базовыми» или указывать, что они входят в «стандартный 
дистрибутив». Если Ре! установлен, значит, должны иметься и эти 
модули. В процессе создания книги мы работали с Регі 5.8.7, поэтому 
будем считать эту версию текущей. 


1 Прочитав книгу, вы научитесь пользоваться модулем Мойц1е: :Согеііѕї, 
с помощью которого сможете проверить количество модулей в своем дист- 
рибутиве. Именно с его помощью мы получили числа, которые приведены 
в тексте. 
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Не исключено, что в своем коде вы задействуете только базовые моду- 
ли, чтобы гарантировать его работоспособность в любом окружении, 
где, по крайней мере, установлен Рег| той же версии, что и у вас. 
В данной книге не будет дискуссий на эту тему, поскольку мы любим 
репозитарий модулей СРАМ слишком сильно, чтобы обойтись без него. 


Использование модулей 


Практически все модули Рег! поставляются вместе с документацией, 
и даже если внутреннее устройство модуля нам неизвестно, это не 
должно нас волновать, если только мы знаем, как пользоваться его ин- 
терфейсом. В конце концов, интерфейсы для того и существуют, чтобы 
скрывать детали реализации. 


Чтобы почитать документацию к модулю на своей машине, можно вос- 
пользоваться командой рег190с, передав ей имя модуля. 


$ рег1аос Рі1е: :Вазепате 


МАМЕ 
Ғ11ерагѕе - 5р1ії а ра{Ипаме іпіо ріесеѕ 
разепате - ехїгасі јиѕі {Пе Ғ11епате гот а раїћ 
1гпате - ехігасї јиѕї {Пе аігесїогу Ғгот а раїћ 
ЗУМОРЗТ$ 


изе Р11е: : Ваѕепате; 


($пате, Фратн, $зи 1х) = ?і1ерагѕе(ФҒи1 1 пате, @ѕи??іх11$1) 
Ғі1ерагѕе_ѕеї Ғѕ+уре(фоѕ ѕїгіпд); 

фраѕепате = разепаме ($Ри1] пате, @ѕи#?іх11$ї); 

фдігпате = дігпате($#и11пате); 


Мы привели лишь начало описания, чтобы показать вам самый важ- 
ный раздел (по крайней мере, самое главное, что поможет начать рабо- 
ту с модулем). Обычно документация к модулям оформляется в фор- 
мате страниц справочного руководства ОС ОМІХ и начинается с разде- 
лов МАМЕ (название) и 5ҮУМОР5І5 (краткое описание). 


В кратком описании приводятся полезные примеры работы с модулем. 
То есть некоторые методики и синтаксис Рег| могут быть незнакомы 
вам, но, руководствуясь примерами, вы сможете заставить свою про- 
грамму работать. 


Модули могут обладать интерфейсами различных типов, учитывая, 
что Ре! представляет собой смесь процедурного, функционального 
и объектно-ориентированного стилей программирования. Мы будем 


1 Возможно, это преждевременно, но мы заметим, что наряду с другими ис- 
торическими сведениями в модуле Моде: :Согеі 151 имеются списки моду- 
лей для каждой из предыдущих версий Ре!1. 
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использовать эти модули несколько различными способами, но пока 
у нас имеется описание модуля, мы не должны испытывать каких-ли- 
бо проблем. 


Функциональные интерфейсы 


Для загрузки модулей! предназначена встроенная директива изе. Мы 
пока не будем обсуждать все тонкости ее применения, подробно об 
этом мы поговорим в главах 10 и 15. А пока загрузим модуль. Начнем 
с модуля Е11е: :Вазепате, поскольку это один из базовых модулей. Что- 
бы загрузить его, в нашем сценарии мы должны написать: 


иѕе Ее: : Ваѕепате; 


После этого мы получим возможность обращаться к подпрограммам 
#і1Іерагѕе, разепамте и 0ігпапе? из нашего сценарияз. Начиная с этого мо- 
мента мы можем написать 


ту Фраѕепате = баѕепате( $зоте_Ри1] рати ); 
ту $91гпате = адігпате( фѕоте #011 ра+ћ ); 


Точно так же, как если бы мы сами написали подпрограммы раѕепапе 
и 91 гпапте или как если бы они были встроенными функциями Рег]. Эти 
подпрограммы возвращают имя файла и имя каталога, выбирая их из 
полного пути к файлу. Допустим, что в переменной $ѕоте_#и11_ раїћ со- 
держится строка 0: \Ргојесіѕ\Іѕ1апаћеѕсие\р1апт7. гі? (если исходить из 
предположения, что программа работает в операционной системе Міп- 
дожѕ), тогда в переменную $баѕепапе будет записано имя файла р1апт. гї#, 
а в переменную $91 гпапе – имя каталога 0: \Ргојесїѕ\Іѕіапаћеѕсие. 


Модуль ЕПе: :Вазепате автоматически определяет тип операционной 
системы, благодаря чему его функции корректно обрабатывают симво- 
лы-разделители, которые могут встретиться в строке. 


Однако предположим, что подпрограмма 01 гпате уже есть в програм- 
ме. Вместо нее будет вызываться одноименная подпрограмма, опреде- 
ление которой находится в модуле Ее: :Вазепате! Включив режим вы- 
вода предупреждений, можно увидеть сообщения, предупреждающие 
об этом; в противном случае Рег] никак не будет реагировать на подоб- 
ные ситуации. 


1 В свою программу (иногда называемую, и авторами тоже, «сценарием» — 
в случае Рег] это одно и то же). – Примеч. науч. ред. 


2 А также к вспомогательной подпрограмме ѓі1ерагѕе_56ї_Ғіуре. 


з Фактически мы импортируем их в текущий пакет, но время говорить об 
этом пока еще не пришло. 
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Как составить список импорта 


К счастью, можно явно определить, что именно надо импортировать, 
поместив в директиве изе вслед за именем модуля список подпро- 
грамм, который называется списком импорта: 


иѕе Рі1е::Ваѕепате ('11]ерагзе’, ‘Базепаме’); 


Теперь мы сможем взять только эти две подпрограммы из модуля и пре- 
дусмотреть собственную реализацию подпрограммы йі гпапе. Конечно, 
такой способ записи кажется громоздким, поэтому чаще всего список 
импорта записывается с применением оператора дм: 


иѕе Рі1е::Ваѕепате дм( Т1]ерагзе разепамте ); 


Фактически, даже если список подпрограмм содержит всего один эле- 
мент, программисты все равно предпочитают оператор дм(), обеспечи- 
вая тем самым единообразие стиля и простоту обслуживания, так как 
нередко приходится возвращаться к директиве импорта и дополнять 
список импортируемых подпрограмм позже, а оператор дм() сильно 
облегчает эту работу. 


Таким способом мы защитили нашу собственную реализацию подпро- 
граммы 091 гпапе. Но что делать, если возникнет потребность воспользо- 
ваться подпрограммой Пі гпате из модуля Ее: :Вазепате? Никаких про- 
блем! Для этого достаточно указать полное имя подпрограммы, уточ- 
нив его именем модуля: 


ту $91гпате = Ее: :Вазепаме: : 91 гпаме ($зоте_ратН); 


В этом случае нет необходимости дополнять список импорта в дирек- 
тиве изе. Мы всегда можем обратиться к подпрограмме по полному 
имени независимо от содержимого списка импорта:! 


ту Фраѕепате = Рі1е: : Ваѕепате: : Базепаме($зоте_ратн); 


В редких случаях (что иногда бывает удобно) мы можем определить 
пустой список импорта: 


иѕе Рі1е: :Вазепаме ( ); # список импорта не определен 
ту Фраѕе = Рі1е: :Вазепаме: : баѕепате($ѕоте раїћ); 


Пустой список не эквивалентен отсутствию списка. Он означает, что 
ничего импортировать не надо. Отсутствие списка означает, что им- 
портировать следует то, что определено по умолчанию. Если автор мо- 
дуля хорошо сделал свою работу, то по умолчанию мы, скорее всего, 
получим именно то, что нам необходимо. 


1 Нет нужды вставлять символ амперсанда перед именем вызываемой функ- 
ции, поскольку оно будет известно компилятору после того, как он встре- 
тит директиву изе. 
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Объектно-ориентированные интерфейсы 


В противовес импорту подпрограмм из модуля Ее: :Вазепате приведем 
другой базовый модуль - с именем Ее: :5рес. Этот модуль предназна- 
чен для организации поддержки операций со спецификациями фай- 
лов. (Спецификация файла - это, как правило, имя файла или катало- 
га, а если файла с таким именем нет, то и спецификация - это уже не 
имя файла, не так ли?) 


В отличие от модуля Ғі1е: :Вазепате, модуль ЁЕ11е: :5рес имеет в первую 
очередь объектно-ориентированный интерфейс. Для его загрузки тоже 
применяется директива изе: 


иѕе Ее: :5рес; 


Однако, поскольку модуль имеет объектно-ориентированный интер- 
фейс,! данная директива не импортирует никаких подпрограмм. Вме- 
сто этого мы получаем доступ к функциональности модуля через мето- 
ды класса. Метод саї?і1е объединяет строки, вставляя между ними со- 
ответствующий разделитель имен каталогов: 


му $#і1еѕрес = Рі1е::5рес->саїғі1е( $һотедіг{ді11ідап}, 
‘мер _досѕ', ‘рНофо$’, '055_М1ппом. 91°); 


Таким способом вызывается метод саї#і1е класса Е11е: :Зрес, который 
собирает строку пути к файлу с учетом особенностей операционной 
системы и возвращает строку результата. Аналогичный синтаксис ис- 
пользуется для вызова порядка двух десятков других операций, пре- 
доставляемых модулем Ее: :5рес. 


Модуль Ее: :5рес реализует еще ряд методов, предназначенных для 
обработки путей к файлам платформонезависимым способом. Более 
подробно о проблемах переносимости программного кода можно про- 
читать в документе регіроїг. 


Типичный объектно-ориентированный 
модуль Маїћ:ВідіІпї 


Не будем расстраиваться по поводу кажущейся «необъектоориентиро- 
ванности» модуля [Е11е::5рес, поскольку в нем нет самих объектов, 


1 Если потребуется функциональный интерфейс, необходимо использовать 
имя Ее: :5рес: : Рипсїіопѕ. 

2 В операционной системе ОМХ эта строка будет выглядеть, например, как 
/һоте,/9111ідап/мер_йосѕ/рһоїоѕ/055_Міппом. 01. В операционной системе Міп- 
доуѕ в качестве разделителей имен каталогов будут выступать символы об- 
ратного слэша (\). Таким образом, данный модуль позволяет гораздо проще 
писать переносимый программный код, по крайней мере, с точки зрения 
спецификаций файлов. 
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а рассмотрим еще один базовый модуль, Маїћ::ВідІпї, предоставляю- 
щий операции для работы с большими целыми числами, поддержка 
которых отсутствует в самом Рег1.1 


изе Маїћ : :ВідІпї; 

ту $уа1ие = Мати: :ВідІпїі->пем(2); # начинаем с числа 2 
фуа1ие->6ром( 1000); # найти 2**1000 
ргіпі $уа1ие->6$Ег( ), “\п”; # вывести результат 


Как и прежде, мы ничего не импортируем из модуля. Интерфейс моду- 
ля целиком построен на применении методов класса, таких как пем, 
который создает экземпляры класса, после чего вызываются методы 
экземпляров, такие как ђрроми 0531г. 


Единая архивная сеть Регі 


Единая архивная сеть Рег] (Сотргеһепѕіуе Рег Атсһіуе МебмогКк — 
СРАМ) содержит результаты труда массы энтузиастов, многие из кото- 
рых ранее содержали собственные небольшие (или крупные) сайты 
ЕТР еще до того, как появилась Всемирная паутина. До 1993 года они 
координировали свои действия с помощью списка рассылки ре-расЕ- 
тафз, после чего решили, что дисковое пространство стало достаточно 
недорогим, чтобы дублировать одну и ту же информацию на всех сай- 
тах сразу, вместо того чтобы специализировать сайты по разным на- 
правлениям. Реализация идеи заняла почти год, и наконец Джаркко 
Хиетаниеми (ЈагкКо Н1ефап1ет1) объявил о создании финского сайта 
ЕТР, получившего название СРАМ и ставшего основным, с которого 
могли получать обновления все остальные зеркала. 


Были выполнены некоторые работы по реорганизации и перестройке 
архивов. Определены места размещения дистрибутивов Ре! для сис- 
тем, отличных от ОМХ, сценариев и исходных текстов самого Рег]. 
Однако самой большой и интересной частью СРАМ стали модули. 


Модули в СРАМ организованы в виде дерева символических ссылок, 
разделенного по категориям, которые ссылаются на фактические ката- 
логи, где собственно и находятся файлы модулей. В разделе модулей 
есть предметные указатели в формате, который легко анализируется 
средствами Рег1 и подобный тому, в каком модуль Дата: :Витрег выдает 
результаты анализа подробного предметного указателя модулей. Разу- 
меется, предметный указатель генерируется автоматически из баз дан- 
ных главного сервера с помощью программ, написанных на языке Рег]. 


1 Строго говоря, собственные возможности Ре! ограничиваются возможнос- 
тями аппаратной архитектуры, на которой он работает. Это одно из немно- 
гих мест в Рег], где проявляются особенности аппаратной части. 
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Собственно обновление информации на зеркалах СРАМ производится 
с помощью еще одной, уже устаревшей программы пт1ггог. р1. 


Если ранее СРАМ размещался на небольшом числе серверов, то теперь 
он включает в себя более 200 общедоступных архивов в разных угол- 
ках Сети, которые постоянно обновляются – как минимум ежедневно, 
а некоторые из них даже ежечасно. Независимо от того, где мы будем 
находиться в тот или иной момент времени, мы всегда сможем найти 
ближайшее зеркало СРАМ и загрузить с него самые последние версии 
пакетов. 


Наверное, больше других вам понравится невероятно удобный СРАМ 
беагећһ (^?1р:/ /ѕеагсћ.срап.огв). С помощью этого веб-сайта можно ис- 
кать модули, просматривать их описание и содержимое дистрибути- 
вов, ознакомиться с отчетами тестеров и многое-многое другое. 


Установка модулей из СРАМ 


Простой модуль из СРАМ устанавливается без особых затей: архив с ди- 
стрибутивом модуля загружается и распаковывается, после чего сле- 
дует перейти в нужный каталог. Мы загружали модуль при помощи 
утилиты моет, но можно взять и другой инструмент. 


$ мдеї ИЕТр: //ммм. срап. огд/. . . /НТТР-Соокіеѕ-Ѕағагі-1. 10. таг. 97 
$ аг -хг2# НТТР-Соокіеѕ-Ѕағагі-1. 10. аг. 97 
$ са НТТР-Соокіеѕ-Ѕағагі-1. 105 


С этого момента дальше можно двинуться двумя путями (каждый из 
них мы подробно опишем в главе 16). Если в каталоге будет обнаружен 
файл Макеғі1е.Рі, мы запускаем его, чтобы собрать, протестировать и, 
наконец, установить модуль. 


$ регі Маке?і1е. РЕ 
$ паке 

$ паке +еѕі 

$ таке іпѕїа11 


Если у вас недостаточно прав, чтобы установить модуль в каталог, от- 
куда он будет доступен всем пользователям в системе,! то можете уста- 
новить его в свой собственный каталог, добавив аргумент командной 
строки РНЕРТХ: 


$ рег1 Маке?і1е. Рі РВЕЕРТХ=/Узегз/поте/@1пдег 


Чтобы Рег1 мог отыскать модуль в этом каталоге, необходимо добавить 
его к содержимому переменной окружения РЕВЕ5(ТВ. Рег сам добавит 
эти каталоги в свой список поиска. 


1 Местоположение этого каталога определяется системным администрато- 
ром на этапе установки Рег. Имя каталога можно узнать с помощью ко- 
манды рег] -\. 
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$ ехрогі РЕВЕБЕТВ=//зегз/поте/61пдег 


Кроме того, можно обратиться к директиве 110, чтобы добавить ката- 
лог модуля к пути поиска, хотя это будет не совсем правильно, по- 
скольку на других компьютерах, где должна будет работать програм- 
ма, каталог с модулем может находиться совсем в другом месте. 


#1 /иѕг/оіп/рег1 
иѕе 116 дм(/Оѕегѕ/һоте/біпдег); 


Теперь вернемся на шаг назад. Если вместо файла Маке?і1е.РІ мы обна- 
ружим файл Ви119.Р!, то сама последовательность выполняемых дей- 
ствий остается прежней. Но установка таких дистрибутивов выполня- 
ется с помощью модуля Моде: :Ви119. Поскольку сам модуль Мойџ- 
1е::Виі1а не является базовым модулем Ре!|,1 то его надо установить 
раньше, чем другие модули, установка которых осуществляется с по- 
мощью Мойџ1е: :Ви11а. 


$ рег1 Виі1а. Рі 
$ рег1 Ви11а 
$ рег1 Ви119 їеѕї 

$ регі Виі1а іпѕіа11 


Чтобы установить модуль в каталог по выбору пользователя с помощью 
модуля Мойџ1е: :Ви119, необходимо определить параметр командной стро- 
ки --іпѕіа11 разе. В этом случае список каталогов, в которых Ре! будет 
искать требуемые модули, определяется точно так же, как и ранее. 


$ рег1 Виі1а.РІ --іпѕїа11 Базе /Оѕегѕ/һоте/@іпдег 


Иногда в составе дистрибутива можно обнаружить оба файла, Маке- 
111е.РЁ и Виі1а.РІ. Как поступить в этом случае? Надо выбрать один из 
них, а какой — решать вам. 


Настройка списка каталогов для поиска модулей 


Поиск модулей производится в каталогах, которые перечислены в мас- 
сиве @1\С. Директива изе исполняется на этапе компиляции, поэтому 
просмотр массива @1№С и поиск подключаемых модулей производятся 
также на этапе компиляции. Если сейчас мы не разберемся с массивом 
@Т\С, позднее это может привести к появлению ошибок, сложных для 
понимания. 


Предположим, что у нас есть свой собственный каталог /поте/911119ап/ 
116, куда мы поместили наш модуль №ауідаііоп: : Ѕеаїо#Рапіѕ: /Поте/911- 
119ап/116/Ма\у19а1опт/еаЕОдРапт$. рт. Когда мы попытаемся подключить 
этот модуль, Ре! не сможет отыскать его. 


1 По крайней мере, пока. Ожидается, что он будет включен в состав дистри- 
бутива Рег] начиная с версии 5.10. 
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иѕе №амуідаїіоп: : Зеат0ТРапт$; 


Компилятор Рег! сообщит, что не смог отыскать путь к модулю в масси- 
ве @1\С и покажет все каталоги, которые перечислены в этом массиве. 


Сап `+ 1осафе М№ауідаіоп/Ѕеао#Рапіѕ. рт іп @ІМС (@ІМС сопїаіпѕ: ...) 


На первый взгляд может показаться, что ситуацию удастся разрешить 
простым добавлением каталога в массив @1\С перед обращением к ди- 
рективе иѕе. Однако даже такой программный код: 


ипзН1 РЕ @ІМС, '/поте/911119ап/116'; # не решает проблему 
иѕе Маутдат1от: : Зеат0ТРапт$; 


нам не поможет. Почему? Потому что ип$111{ выполняется на этапе ис- 
полнения - уже после того, как на этапе компиляции будет обработана 
директива изе. Лексически эти две директивы расположены рядом 
и следуют одна за другой, но исполняются в разное время. Порядок за- 
писи отнюдь не всегда совпадает с порядком исполнения. Итак, требу- 
ется изменить содержимое массива @Т№С до того, как будет вызвана ди- 
ректива изе. Один из способов состоит в том, чтобы заключить вызов 
ипзр1 ТЕ в блок ВЕСТЬ: 


ВЕСТМ { ипзй1РЕ @ТМС, '/поте/911119ап/116'; } 
иѕе №амуідаїіоп: : Зеат0ТРапт$; 


Теперь содержимое блока ВЕСТМ будет исполняться на этапе компиля- 
ции, благодаря чему Рег] сможет отыскать модуль, подключаемый в ди- 
рективе иѕе. 


Но такой способ не очень удобен, и вам потребуется написать подроб- 
ный комментарий, чтобы объяснить все тонкости программисту, кото- 
рый должен будет сопровождать и модифицировать ваш программный 
код. Попробуем добиться того же эффекта более простым способом, ко- 
торый мы уже применяли: 


иѕе 116 '/һоте/91111ідап/116`'; 
иѕе №амуідат1іоп: : ЅеатоғРапіѕ; 


Директива 1ір принимает один или более аргументов и добавляет их 
в начало массива @1\С точно так же, как и использованный нами опера- 
тор ипѕћі?ї.1 Этот прием срабатывает потому, что данная директива ис- 
полняется на этапе компиляции. Поэтому порядок исполнения дирек- 
тив соответствует порядку их следования в исходных текстах. 


Аргументы директивы изе 116 практически всегда зависят от местополо- 
жения модулей в системе, поэтому стало уже традицией (которой мы 
призываем вас следовать) помещать эти директивы в самое начало фай- 
ла. Благодаря этому их нетрудно найти и изменить в случае необходимо- 


1 Кроме того, директива изе 11р не сдвигает архитектурнозависимые библио- 
теки вниз относительно запрашиваемой, что делает ее более привлекатель- 
ной по сравнению со способом, представленным ранее. 
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сти, например при переносе программного обеспечения в другую систе- 
му или при изменении имени каталога с модулями. (Разумеется, мы мо- 
жем вообще отказаться от директивы изе 116, для чего достаточно уста- 
новить модуль в один из предопределенных каталогов, которые перечис- 
лены в массиве @1\С по умолчанию, но это возможно далеко не всегда.) 


Директива изе 116 должна интерпретироваться не как «иѕе ћіѕ ПБ» (под- 
ключить эту библиотеку), а как «иѕе {11$ раёћһ ёо Ёіпа ту Погашез (апа 
тоапшеѕ)» (добавить этот каталог в список поиска библиотек (и моду- 
лей)). Очень часто программисты допускают такую ошибку: 


иѕе 116 '/ћоте/9111ідап/11р/М№ауідатіоп/Ѕеа+0#Рапіѕ. рт’; # НЕВЕРНО! 


После чего они долго думают, почему Рег] не может найти модуль. Не 
забывайте, директива изе 116 исполняется на этапе компиляции, по- 
этому следующий вариант тоже не сработает: 


ту ФЕТВ_ОТВ = '/һоте/9111ідап/11р'; 


иѕе 116 Ф11ІВ ОТВ; # ОШИБКА! 
иѕе №амуідат1іоп: : Зеат0ТРапт$; 


Конечно же, РегІ создаст переменную $118 ІЯ на этапе компиляции 
(по этой причине мы не получим сообщение о некорректном использо- 
вании переменной, хотя сообщение о невозможности отыскать модуль 
все-таки будет выведено), но значение этой переменной будет присвое- 
но на этапе исполнения. Опять слишком поздно! 


Чтобы этот прием был эффективным, необходимо вставить операцию 
присваивания в блок ВЕСТ\М или определить переменную как константу 
с помощью директивы сопѕіапі: 


иѕе сопзфапт ІВ ІҢ => '/йоте/911119ап/116’; 


иѕе 116 11В ВІВ; 
иѕе №амуідаїіоп: : ЅеатоғРапіѕ; 


Ошибку снова удалось исправить! Но это возможно лишь до тех пор, по- 
ка путь к каталогу с требуемой библиотекой известен заранее и для его 
определения не требуются сложные вычисления. (Когда же это закон- 
чится? Кто-то должен положить конец этому безумию!) Хотя в 99 слу- 
чаях из 100 этого бывает вполне достаточно. 


Обработка зависимостей модулей 


Мы только что говорили, что для установки некоторых модулей необ- 
ходимо сначала установить модуль Мойџ1е: :Виі1а. Это легкая форма 
мигрени под названием «Зависимости между модулями», и даже все 
кокосовые орехи на острове, куда попали наши герои, потерпевшие 
кораблекрушение, не облегчат ее. Нам может понадобиться устано- 
вить всего несколько модулей, однако каждый из них может потребо- 
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вать установки дополнительных модулей для удовлетворения всех за- 
висимостей. 


К счастью, имеется инструмент, способный помочь в этом. Модуль 
СРАМ. рп вошел в состав базовых модулей начиная с версии Рег! 5.004. 
Он реализует диалоговую оболочку установки модулей. 


$ рег1 -МСРАМ -е ѕһе11 
срап ѕһће11 -- СРАМ өехр1ога+іоп апа тоди]1ез іпѕїа11аііоп (№1. 7601) 
Веадііпе зиррогЕ ауаі1ар1е (ігу `іпѕїа11 Випа1е: : СРАМ’) 


срап> 


Чтобы установить модуль со всеми его зависимостями, достаточно вве- 
сти команду іпѕїа11 с именем требуемого модуля. После этого СРАМ. рт 
сам загрузит, распакует, скомпилирует, протестирует и установит тре- 
буемый модуль, рекурсивно удовлетворяя все обнаруженные зависи- 
мости. 


срап> 1п${а11 С6І: :Ргофофуре 


Такой подход не требует от нас больших усилий, однако Брайан [Д. Фой] 
пошел еще дальше и написал сценарий срап, который также включен 
в состав Рег. Этому сценарию достаточно передать список модулей, 
а все остальное он сделает сам. 


$ срап ССТ::Рготофуре НТТР: :Соок1ез: :ЗаРаг1 Теѕї; : Роа 


Еще один инструмент, СРАМРІЏ5, представляет собой полностью перепи- 
санный модуль СРАМ. рп, но он не относится к базовым. 


$ рег1 -МСРАМРІОЅ -е =ће11 

СРАМРІО$: :$пе11: : деғаи1ї -- СРАМ ехр1ога+іоп апа моду1ез іпѕ+а11аїіоп (0.03) 
ххх Р]еазе герогі ридѕ То <срапр1и5$-0095@11515. зоигсеРогде. пеї>. 

ххх [5109 СРАМРИ5: : Васкепа 0. 049. 

ххх Веааііпе ѕиррогі ауаі1ар1е (їгу ‘1 Тегт: : Веадііпе: :Рег1 °). 


СРАМ Тегт1па1> 


Для установки модуля предназначена команда і. 


СРАМ Тегт1па1> 1 СОТ: : Ргоїоїуре 


В состав модуля СРАМРІШЅ входит вспомогательный сценарий срапр, ана- 
логичный упоминавшемуся ранее сценарию срап. Чтобы установить 
группу модулей с его помощью, достаточно передать сценарию коман- 
ду і и список требуемых модулей. 


$ срапр 1 СОТ: :Ргоїоїуре НТТР: :Соокіеѕ::Ѕағагі Төѕі: : Рой 


Упражнения 


Ответы на эти вопросы вы найдете в приложении А в разделе «Ответы 
к главе 3». 
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Упражнение 1 [25 мин] 


Прочитайте список файлов в текущем каталоге и преобразуйте полу- 
ченные имена в их спецификации, содержащие полные пути к фай- 
лам. При этом нельзя обращаться к возможностям командной оболоч- 
ки или каких-либо внешних программ. Допускается использовать мо- 
дули Е11е: : рес и (ма, входящие в состав Ре!1. При выводе списка спе- 
цификаций перед каждой из них должны выводиться четыре пробела, 
а после каждой из них — символ перевода строки (точно так же, как это 
делалось в упражнении 1 из главы 2). Сможете ли вы задействовать 
программный код, написанный ранее? 


Упражнение 2 [35 мин] 


Попробуйте выполнить интерпретацию ІЅВМ этой книги, который вы 
найдете на последней странице обложки (0596102062).: Установите 
модуль Ви$1пезз: :15В№ из СРАМ и воспользуйтесь им для извлечения 
кода страны и кода издателя из указанного числа. 


1 Это, понятное дело, І5ВМ№ английского издания. 


Введение в ссылки 


Ссылки - это основа сложных структур данных, объектно-ориентиро- 
ванного программирования (ООП) и необычной работы с подпрограм- 
мами. Ссылки были добавлены в Рег| между версиями 4 и 5. 


Скалярные переменные Рег! могут хранить одиночное значение. Мас- 
сив представляет собою упорядоченный список из одного или более 
скалярных значений. Хеши могут хранить коллекции скаляров — одни 
в виде ключей, другие в виде значений. Хотя скаляр и может быть лю- 
бой строкой, в которую можно «втиснуть» массив или хеш, ни один из 
этих трех типов данных не может использоваться для описания слож- 
ных взаимосвязей между данными. Для этого лучше всего подходят 
ссылки. Чтобы прочувствовать, насколько важны ссылки, начнем с од- 
ного примера. 


Выполнение однотипных действий 
с разными массивами 


Прежде чем «Міппоу» (Пескарь) сможет отплыть от пристани (напри- 
мер, на трехчасовую экскурсию), мы должны проверить всех пассажи- 
ров и членов экипажа на наличие у них всего необходимого. Скажем, 
для экскурсии по морю каждый, кто находится на борту, должен иметь 
солнечные очки, крем или лосьон от загара, фляжку с водой и накидку 
от дождя. Чтобы проверить, как подготовился к этому мероприятию 
Шкипер, достаточно написать совсем немного программного кода: 


ту @геди1гед = ам(солнечные_очки крем фляжка_с_водой накидка) 
ту @ѕкіррег = ам(голубая_рубашка шляпа накидка солнечные_очки крем) 


Рог ту $ітет (@геди1геа) { 
ип1еѕѕ (дгер $іїет өд $, @ѕкіррег) { # нет в списке? 
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ргіп "Шкипер: отсутствует $ітет. \п”; 


} 


В скалярном контексте дгер возвращает количество раз, когда в резуль- 
тате вычисления выражения $11еп ед $_ было получено значение «ис- 
тина» (1 – это истина, 0 — ложь).! Если получилось значение 0 (то есть 
«ложь»), мы выводим сообщение. 


Разумеется, чтобы проверить экипировку Джиллигана или Профессо- 
ра, нам придется написать: 


ту @911119ап = ам(красная рубашка шляпа счастливые_носки фляжка_с_водой); 
Тог ту $1%ет (@гедиігеа) { 
ип1еѕѕ (дгер $іїет өд $, @911119ап) { # нет в списке? 
ргіпі “Джиллиган: отсутствует $11ем. \п”; 


} 
ту @ргоҒеѕѕог = дм(крем фляжка_с_водой рулетка батарейки радиоприемник); 
Тог ту $1%ет (@гедиігеа) { 
ип1еѕѕ (дгер $іїет өд $, @ргоғеѕѕог) { # нет в списке? 
ргіпі "Профессор: отсутствует $1{ет. \п"; 


} 


Вы наверняка заметили, что в этом примере постоянно повторяется 
слишком большой объем программного кода. Неплохо было бы выде- 
лить повторяющиеся строки в виде отдельной подпрограммы (и вы со- 
вершенно правы): 


зиб спеск_геди1гед_11етз { 
ту Фипо = $1111; 
ту @геди1гед = ам(солнечные_очки крем фляжка_с_водой накидка); 
Тог ту $ітет (@гедиігеа) < 
ип1еѕѕ (дгер $11ет ед $_, @) { # нет в списке? 
ргіпі "Фипо; отсутствует фі ет. \п”; 


} 


ту @911119ап = ам(красная рубашка шляпа счастливые_носки фляжка_с_водой); 
сһеск_гедиігед ітетѕ('`Джиллиган', @9111109ап); 


Изначально подпрограмме передаются 5 аргументов в виде массива @_: 
имя Джиллиган и четыре предмета, принадлежащие Джиллигану. После 
выполнения функции 51111 в массиве @ останутся только предметы. 
Затем дгер будет вынимать предметы из контрольного списка и прове- 
рять их наличие в списке имеющихся предметов. 


1 Есть более эффективный способ проверки наличия элемента в очень боль- 
ших списках. Но для нескольких элементов приведенный способ, пожа- 
луй, самый простой. 
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Пока все идет неплохо. Аналогичным образом мы можем проверить 
Шкипера и Профессора, добавив всего несколько строк: 


ту @ѕкіррег = ам(голубая_рубашка шляпа накидка солнечные_очки крем); 

ту @ргоРеззог = дм(крем фляжка_с_водой рулетка батарейки радиоприемник); 
спеск_геди1гед_11етз( ‘`Шкипер’, @ѕкіррег); 

спеск_геди1гед_11етз$ ( ‘Профессор’, @ргоғеѕѕог); 


Для проверки других пассажиров корабля придется повторить те же 
действия. Этот программный код отвечает первоначальным требова- 
ниям, но в нем имеются две неувязки: 


® Чтобы создать массив @_, Рег] вынужден копировать все содержимое 
проверяемого массива. Это не очень важно, если объем массива неве- 
лик, но если массив большой, то копировать его элементы только ра- 
ди того, чтобы передать их в подпрограмму, слишком расточительно. 


• Предположим, что требуется изменить оригинальный массив, что- 
бы, например, включить в него обязательные элементы. Поскольку 
подпрограмме передается копия массива («передача аргумента по 
значению»), все изменения, произведенные в массиве @_, будут по- 
теряны после выхода из подпрограммы.! 


Любую из этих неувязок можно устранить, передав массив не по зна- 
чению, а по ссылке. И это как раз то, что доктор (то есть Профессор) 
прописал. 


Ссылки на массивы 


Кроме всего прочего, символом обратного слэша (\) обозначается опе- 
ратор «взятия ссылки». Когда этот оператор ставится перед именем 
массива, например \@ѕкіррег, мы получаем ссылку на этот массив. 
Ссылка на массив сродни указателю: она указывает на массив, но сама 
не является массивом. 


Ссылка может применяться там же, где и скалярные величины. Ссыл- 
ки могут указывать на элементы массива или хеша или на обычные 
скалярные переменные, например так: 


у $геѓғегепсе їо ѕкіррег = \@ѕкіррег; 
Ссылки можно копировать: 
у Фѕесопа геғегепсе о ѕкіррег = $геҒегепсе іо ѕкіррег; 


или даже: 


у $1һіга геғегепсе о ѕкіррег = \@ѕкіррег; 


1 На самом деле, после того как ѕһі?ї изменит соответствующую перемен- 
ную, скалярным элементам массива @_ можно присвоить новые значения, 
но это по-прежнему не дает нам возможности расширять массив дополни- 
тельными элементами. 
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Мы можем оперировать всеми тремя ссылками и даже утверждать, что 
они идентичны, поскольку ссылаются на один и тот же массив. 


11 ($геғегепсе їо ѕкіррег == $ѕесопа_геғегепсе_+о_ѕКіррег) { 
ргіпі “Эти ссылки идентичны. \п” 


} 


В данном случае сравниваются числовые представления двух ссылок. 
Числовое представление – это уникальный адрес в памяти массива 
@ѕКкіррег, структура которого не меняется в течение всего времени жиз- 
ни переменной. Если попробовать посмотреть на строковое представ- 
ление ссылки (с помощью оператора ед или рг1п1), мы увидим строку: 


АВВАҮ(0х1а203с) 


которая содержит уникальный адрес массива (о чем говорит шестна- 
дцатеричная форма представления). Кроме того, данная строка свиде- 
тельствует, что это ссылка на массив. Разумеется, если нечто подобное 
появится в выводе нашей программы, то почти наверняка будет озна- 
чать ошибку, поскольку дампы шестнадцатеричных данных не пред- 
ставляют интереса для пользователей! 


Ссылки допускают копирование и передачу подпрограммам, и это об- 
стоятельство можно использовать для передачи нашей подпрограмме 
ссылки на массив: 


ту @ѕкіррег = ам(голубая_рубашка шляпа накидка солнечные_очки крем); 
спеск_геди1гед_11етз( “Шкипер”, \@ѕкіррег); 


зиб спеск_геди1гед_11етз { 
ту Фипо = $1111; 
ту $11етз$ = $1111; 
ту @геди1гед = ам(солнечные_очки крем фляжка_с_водой накидка); 


} 


Теперь переменная $11етз внутри подпрограммы представляет собой 
ссылку на массив @$кіррег. Но как добраться до самого массива, имея 
ссылку на него? Для этого достаточно разыменовать ссылку. 


Разыменование ссылок на массивы 


Если внимательно посмотреть на имя массива @зК1ррег, можно заме- 
тить, что оно состоит из двух частей: символа @ и собственно имени 
массива. Точно так же запись $ѕкіррег[1] синтаксически состоит из 
имени массива и дополнительной синтаксической конструкции, кото- 
рая указывает на второй элемент массива (индекс массива со значени- 
ем 1 соответствует второму элементу массива, поскольку первый эле- 
мент имеет индекс 0). 


Хитрость заключается в том, чтобы заключить ссылку в фигурные скоб- 
ки. Таким образом, везде, где необходимо обратиться к массиву, доста- 
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точно написать имя ссылки, заключенное в фигурные скобки: { $іїетѕ }. 
Например, следующие две строки ссылаются на весь массив: 


@ ѕкіррег 
@{ $ііетѕ } 


а следующие две - на второй элемент массива: 


$ ѕкіррег [1] 
${ %1тетѕ }[1] 


Посредством ссылок на массивы нам удалось отделить программный 
код обращения к массиву от самого массива. Посмотрим, как это по- 
влияло на оставшуюся часть подпрограммы: 


зи спеск_геди1гед_11етз { 
ту Фипо = $1111; 
ту $11етз$ = ѕһіғї; 
ту @геди1гед = ам(солнечные_очки крем фляжка_с_водой накидка) 


Тог ту $ітет (@гедиігеа) < 
ип1еѕѕ (дгер $11ет ед $_, @{%$іїетѕ)) { # нет в списке? 
ргіпі "Фийо: отсутствует $1тем. \п” 


} 


Мы всего лишь заменили @_ (копию проверяемого списка) на @{$11етз}, 
то есть разыменовали ссылку на оригинальный массив. Теперь, как 
и прежде, мы можем вызвать подпрограмму несколько раз: 


ту @ѕкіррег = ам(голубая_рубашка шляпа накидка солнечные_очки крем); 
сһеск_гедиігеа і+етѕ( `Шкипер', \@ѕкіррег); 


ту @ргоғеѕѕог = дм(крем фляжка с_водой рулетка батарейки радиоприемник); 
сһеск_гедиігеа ітетѕ(`Профессор', \@ргоғеѕѕог); 


ту @91111дап = ам(красная рубашка шляпа счастливые носки фляжка _с_водой); 
сһпеск_гедиігеа_і+етѕ( '`Джиллиган', \@91111ідап); 


Каждый раз $іїетѕ будет указывать на разные массивы, что позволяет 
выполнять проверки посредством одного и того же программного ко- 
да. Этот пример демонстрирует один из самых важных случаев приме- 
нения ссылок: отделение логики программы от структур данных по- 
зволяет многократно задействовать один и тот же программный код. 


Передача массива в подпрограмму по ссылке устраняет первую из 
двух неувязок, о которых мы говорили выше. Теперь, вместо того что- 
бы целиком копировать исходный массив в массив @ , мы передаем 
подпрограмме единственный элемент – ссылку на массив. 


Можно ли убрать два вызова ѕћіѓї в начале подпрограммы? Конечно, 
но для этого придется пожертвовать ясностью кода подпрограммы: 


зиб сһеск_гедиігеа і+етѕ { 
ту @гедиігеа = ом(солнечные_очки крем фляжка с. водой накидка); 
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Тог ту $ітет (@гедитгеа) ‹ 
ип1еѕѕ (огер $1%ет ед $_, @{$_[1]}) { # нет в списке? 
ргіпі "$ [0]: отсутствует $іїет. \п"; 


} 


У нас в массиве @ по-прежнему два элемента. Первый – это имя пасса- 
жира или члена экипажа, которое фигурирует в выводе сообщения об 
ошибке. Второй элемент - это ссылка на массив с экипировкой, кото- 
рый передается оператору дгер. 


Избавляемся от фигурных скобок 


В большинстве случаев ссылки служат для обеспечения доступа к ска- 
лярным величинам, таким как @{$іїетпѕ) или ${$іїепѕ)[1]. В таких си- 
туациях фигурные скобки можно опустить и записывать ссылки так: 
@фітетѕ или $$11ет$[ 1]. 


Однако избавиться от фигурных скобок невозможно, если значение 
в скобках не является скалярной величиной. Например в такой форме 
записи: @{$_[1]}, которую мы использовали в последней версии под- 
программы. Здесь мы не можем избавиться от фигурных скобок, по- 
скольку в данном случае элемент массива представляет собой массив, 
а не скалярную величину. 


В соответствии с этим правилом нетрудно определить, где должны сто- 
ять «отсутствующие» фигурные скобки. Так, если мы встречаем за- 
пись в виде $$іїетѕ[1], то можно с уверенностью утверждать, что фи- 
гурные скобки должны обрамлять простую скалярную переменную 
фіїепѕ. Отсюда следует вывод, что $11етз представляет собой ссылку 
на массив. 


Таким образом, самая простая для восприятия человеком версия под- 
программы может выглядеть следующим образом: 


зи спеск_геди1гед_11етз { 
ту Фипо = $1111; 
ту $11етз$ = $1111; 


ту @геди1гед = ам(солнечные_очки крем фляжка_с_водой накидка); 
Тог ту $ітет (@гедитгеа) ‹{ 
ип1еѕѕ (дгер $іїет өд $, @$11етз) { # нет в списке? 
ргіпі "Фийо: отсутствует фі+ет. \п”; 


} 


Эта версия отличается от предыдущей лишь отсутствием фигурных 
скобок. 
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Теперь вы знаете, как с помощью ссылок избавиться от ненужного ко- 
пирования информации. Посмотрим, как внести изменения в ориги- 
нальный массив. 


Каждый отсутствующий элемент экипировки мы будем добавлять в мас- 
сив, обращая на него внимание пассажира: 


зи спеск_геди1гед_11етз$ { 
ту Фипо = $1111; 
ту $11етз$ = ѕһіғї; 


ту @геди1гед = ам(солнечные_очки крем фляжка_с_водой накидка); 
ту @тіѕѕіпо = ( ); 
Тог ту $ітет (@гедиігеа) ‹ 
ип1еѕѕ (дгер $іїет өд $, @фіТетѕ) { # нет в списке? 
ргіпі "Фийо: отсутствует фі ет. \п”; 
риѕћ @тіѕѕіпо, Ффііет; 


} 


1Е (@тіѕ5іпд) { 
рг1пЕ "Добавлены @тіѕѕіпо в саквояж @фітетѕ пассажира $мпо. \п”; 
риѕћ @$1{етз$, @тіѕ5іпо; 


} 


Обратите внимание на дополнительный массив @піѕѕіпо. Если в про- 
цессе проверки багажа пассажира обнаруживается отсутствующие 
обязательные элементы экипировки, мы записываем их в массив 
@піѕѕіпо. Если по окончании проверки массив не пустой, мы добавляем 
его содержимое к оригинальному массиву с экипировкой. 


Ключевой является последняя строка подпрограммы. Здесь мы разы- 
меновали ссылку на оригинальный массив $іїетѕ и добавили в него со- 
держимое массива @піѕѕіпо. При отсутствии ссылки на массив мы 
смогли бы изменить только локальную копию данных, что никак не 
повлияло бы на сам массив. 


Кроме того, запись @$іїетѕ (и более универсальная форма @{$11етз}) мо- 
жет применяться внутри строк, заключенных в двойные кавычки. Ме- 
жду символом @ и остальной частью ссылки нельзя вставлять пробелы, 
зато внутри фигурных скобок они вполне допустимы, как в обычном 
программном коде Рег]. 


Вложенные структуры данных 


В данном примере массив @ содержит два элемента, один из которых 
сам является массивом. А как быть, если мы получаем ссылку на мас- 
сив, который сам содержит ссылки на другие массивы? Такая слож- 
ная организация данных может оказаться весьма удобной. 
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Например, мы можем обойти массивы Шкипера, Джиллигана и Про- 
фессора и построить один большой список предметов экипировки, 
имеющихся в наличии: 


ту @ѕкіррег = ам(голубая_рубашка шляпа накидка солнечные_очки крем); 

ту @ѕкіррег_міїһ пате = (‘Шкипер’, \@ѕкіррег); 

ту @ргоғеѕѕог = ам(крем фляжка_с_водой рулетка батарейки радиоприемник); 
ту @ргоРеззог міїћһ пате = ('Профессор’, \@ргоРе$зог); 

ту @911119ап = дм(красная_рубашка шляпа счастливые_носки фляжка_с_водой); 
ту @01111дап міїһ пате = (‘Джиллиган’, \@911119ап); 


В данном случае массив @ѕкіррег_міїћ_ пате содержит два элемента, вто- 
рой из которых представляет собой ссылку на массив, аналогичную 
той, что мы передавали в подпрограмму. Теперь можно объединить 
всю информацию в единый список: 


ту @а11 міїһ патеѕ = ( 
\@Ккіррег_міїћ_пате, 
\@ргоѓеѕѕог_міїћ_пате, 
\@9111ідап_міїһ_ пате, 
); 


Обратите внимание: мы получили три элемента, каждый из которых 
является ссылкой на массив, состоящий из двух элементов: имени 
и списка имеющихся в наличии предметов. Изображение этой струк- 
туры приводится на рис. 4.1. 


Ссылка на массив Ссылка на массив Ссылка на массив 


у у у 
Ссылка Ссылка Ссылка 
ИВ | на массив | пн на массив | а) на массив 


голубая рубашка крем | красная рубашка 
шляпа | фляжка_с_водой | шляпа | 
накидка | рулетка | Беса 
солнечные очки | батарейки | фляжка_с_водой | 
крем | радиоприемник | 


Рис. 4.1. В массиве @аП_ший_патез сосредоточена вся многоуровневая 
структура данных, состоящая из строк и ссылок на массивы 


у у у 
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Таким образом, $а11_міїһ пате$[2] представляет собой ссылку на мас- 
сив с информацией о Джиллигане. Если разыменовать ссылку как 
@{$а11 міїһ_патеѕ[2]}, получится массив из двух элементов: «Джилли- 
ган» и ссылка на другой массив. 


Как организовать доступ к данным по этой ссылке? Опять применяя 
наше правило: ${$а11 м11Н_патез[2]}[1]. Или, говоря другими словами, 
берем ссылку $а11 міїһ_папеѕ[2], разыменовываем ее и обращаемся 
как к обычному массиву, например $00ММУ[ 1], где 00ММҮ заменяется на 
фа11 міїћһ патеѕ[2]. 


А как тогда обращаться к подпрограмме сһеск_гедиігей_іїетѕ(), имея та- 
кую структуру данных? Ниже приводится достаточно простой пример: 


Тог ту Фрегзоп (@а11 міїһ патеѕ) { 
ту $ипо = $$регзоп[ 0]; 
ту Фргоуіѕіопѕ геғегепсе = $Фрегзоп[ 1]: 
спеск_геди1гед_11етз($ипо, Фргоуіѕіопѕ_геғегепсе); 


} 


Для этого не надо вносить изменения в саму подпрограмму. В процессе 
исполнения цикла переменная $регзоп будет поочередно получать зна- 
чения $а11 міїћһ патеѕ[0], $а11 міїһ патеѕ[1] и $а11 міїћ пате$[2]. Когда 
разыменовывается ссылка $$регзоп[0], мы поочередно будем получать 
строки «Шкипер», «Профессор» и «Джиллиган». Соответственно ра- 
зыменованная ссылка $$регзоп[1] будет представлять список вещей, 
принадлежащих этим персонажам. 


Разумеется, мы можем сократить объем кода, отказавшись от проме- 
жуточных переменных: 


Тог ту Фрегзоп (@а11 м1{И_патез) { 
сһеск_гедиігеа ііетѕ(@фрегѕоп); 


} 
или даже так: 
снеск_геди1 гед_11етз(@$_) Гог @а11 міїһ патеѕ; 


Как видите, различные уровни оптимизации могут приводить к сни- 
жению ясности программного кода. Представьте себе, что может вам 
прийти в голову, когда через месяц вы попытаетесь разобраться в сво- 
ем собственном программном коде. Если этот довод кажется вам не- 
убедительным, представьте себе, каково будет другому программисту, 
который пожелает подхватить ваши начинания.! 


1 В издательстве О’ВеШу вышла прекрасная книга «Рет| Веѕё Ргасіісіеѕ» Дэ- 
миана Конвея (ратіап Сопжау), в которой приводятся 256 советов, как сде- 
лать программный код на языке Рег] удобочитаемым и более простым в под- 
держке. 


52 Глава 4. Введение в ссылки 


Упрощаем доступ к вложенным структурам 
с помощью стрелок 


Взглянем еще раз на форму разыменования ссылок с помощью фигур- 
ных скобок. Согласно нашему предыдущему примеру ссылка на массив 
с предметами, принадлежащими Джиллигану, записывается как 
${$а11 мі+һ патеѕ[21) 11]. Как теперь получить название первого предме- 
та из списка? Для этого надо разыменовать данный элемент еще раз, то 
есть добавить еще одни фигурные скобки: ${${$а11 міїһ патеѕ[2]) [11110]. 
Очень неудобная форма записи. А есть ли способ попроще? Конечно 
есть! 


Форму записи $ {ВИММУ } [$у ] во всех случаях можно заменить более крат- 
кой формой 0ИММУ->[$у]. Другими словами, можно разыменовать ссыл- 
ку на массив, указав в квадратных скобках требуемый элемент масси- 
ва после выражения, определяющего ссылку на массив, и стрелки. 


В нашем примере ссылку на массив с предметами, принадлежащими 
Джиллигану, можно получить так: $а11 міїһ_ пате$[2]->[1], атак – дос- 
туп к первому элементу этого массива: $а11 міїһ патеѕ[21->[1]->[0]. 
Вот это да! Такая форма записи воспринимается гораздо проще! 


Есть и еще одно правило (как будто эта форма еще недостаточно про- 
ста): если стрелка встречается между элементами, обозначающими ин- 
декс, к примеру между квадратными скобками, то ее можно опустить: 
$а11 міїһ_ пате5[2]->[1]->[0] превращается в $а11 міїһ_ патеѕ[2 111110]. 
Эта форма более удобочитаема. 


Оператор стрелки обязательно должен присутствовать после имени 
ссылки, а между индексами его можно опустить. Почему? Представь- 
те себе следующую ссылку на массив @а11 міїћ патезѕ: 


ту фгоо = \@а11 міїһ патеѕ; 


Как теперь получить название первого предмета, принадлежащего 
Джиллигану? 


фгоої -> [21 -> [1] -> [0] 


В соответствии с правилом, определенным выше, стрелки между ин- 
дексами можно опустить: 


ФгооЕ -> [2111110] 


Но мы не можем опустить оператор стрелки, следующей за именем 
ссылки, потому что такая форма записи будет означать обращение 
к третьему элементу массива $ гоої, то есть обращение к данным с со- 
вершенно иной структурой. Теперь сравним эту форму записи с уни- 
версальной, где есть фигурные скобки: 


$4${$ {Фгоот}[2]}[11}[0] 


Форма записи со стрелкой выглядит намного лучше. Однако чтобы по- 
лучить по ссылке весь массив с информацией о Джиллигане, нам пона- 
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добится форма записи с фигурными скобками. Например, чтобы полу- 
чить весь массив с предметами, мы должны записать; 


@{фгоо->[21[1]} 
Такая форма записи должна читаться изнутри наружу: 
• Берем ссылку $ гоої. 


• Разыменовываем ее как ссылку на массив и берем третий элемент 
массива (элемент с индексом 2). 


• Разыменовываем его как ссылку на массив и берем второй элемент 
массива (элемент с индексом 1). 


® Разыменовываем его как ссылку на массив и берем весь массив це- 
ликом. 


Последний шаг не имеет краткой формы записи. Ну и ладно.! 


Ссылки на хеши 


Аналогично тому, как можно получить ссылки на массивы, точно так 
же можно получить ссылки на хеши. Здесь тоже используется символ 
обратного слэша (\), который является оператором «взятия ссылки»: 


ту %911119ап_1пРо = ( 
пате => ‘Джиллиган’, 
һа => ‘Белый’, 
ѕһігі => ‘Красный’, 
ро$1{1оп => 'Первый помощник капитана’, 
); 
ту Фһаѕһ ге? = \%9111ідап_іпғо; 
Чтобы извлечь информацию о Джиллигане с помощью ссылки, мы 
должны разыменовать ее. Стратегия работы со ссылками на хеши по- 
хожа на стратегию работы со ссылками на массивы. Сначала мы запи- 
сываем обращение к ссылке, как если бы это был сам хеш, а затем до- 
бавляем пару фигурных скобок. Например, выбрать значение кон- 
кретного ключа можно так: 


ту Фпате = $ 0і11ідап іпёо { ‘пате’ }; 
ту Фпате = $ { Фһаѕһ ге? } { ‘пате’ }; 


В этом случае фигурные скобки имеют двойное назначение. Первая 
пара скобок обозначает выражение, которое возвращает ссылку, а вто- 
рая определяет ключ, значение которого должно быть получено. 


Для выполнения действий над всем хешем можно записать: 


ту @кеуѕ = Кеуз % 01111дап іпғо; 
ту @кеуѕ = Кеуз % { Фһаѕһ ге? }; 


1 Эта проблема неоднократно обсуждалась разработчиками Регі, но никто из 
них не смог придумать синтаксис, который был бы обратно совместим 
с универсальной формой записи. 
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Как и вслучае ссылок на массивы, при некоторых обстоятельствах мы 
можем использовать сокращенную форму записи, опустив фигурные 
скобки. Например, если элемент в фигурных скобках является ска- 
лярной величиной (как показано в этих примерах), фигурные скобки 
можно опустить: 


ту Фпате = Ф%һаѕһ_ге?{ ‘паме’}; 
ту @кеуѕ = кеуз %фһаѕһ геғ; 


Как и в случае с массивами, при обращении к конкретным элементам 
хеша допускается применять оператор стрелки: 


ту Фпате = $һаѕһ ге?->{ ‘пате '}; 


Поскольку ссылки допускаются везде, где допускаются скалярные пе- 
ременные, мы можем создать массив ссылок на хеши: 


ту %01111дап іп#о = ( 

пате => ‘Джиллиган’ 

һа => ‘Белый’ 
ѕһігїі => ‘Красный’ 
ро$1{1оп => 'Первый помощник капитана” 
); 
ту %ѕкіррег_іп#о = ( 
пате => ‘Шкипер’, 
рат => ‘Черный’ 
ѕһігї => 'Голубой’, 
роѕіїіоп => ‘Капитан’, 


); 
ту @сгем = (\%911119ап_1пРо, \%зк1ррег_1пРо); 


Здесь элемент $сгем[0] представляет ссылку на хеш с информацией 
о Джиллигане. Имя Джиллигана в этом случае можно получить лю- 
бым из следующих способов: 


${ Фсгем[0] } { ‘пате’ } 

пу Фге? = $сгем[0]; $%%ге#{ ‘пате’ } 
фсгем[0]->{ ‘пате '} 
$сгем[ 0] { ‘пате’ } 


В последней строке мы просто опустили оператор стрелки «между ин- 
дексами», хотя левая часть выражения – это массив, а правая — эле- 
мент хеша. 


Попробуем вывести список членов экипажа: 


ту %911119ап_1пРо = ( 
пате => ‘Джиллиган’ 
һа => ‘Белый’ 
ѕһігїі => ‘Красный’ 
роѕіїіоп => 'Первый помощник капитана” 
у 
ту %зктррег_1п 
пате => ‘Шкипер’ 
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рат => ‘Черный’, 
ѕһігї => 'Голубой' 
роѕіїіоп => ‘Капитан’, 
); 


ту @с (\%911119ап_1пРо, \%ѕкіррег іп#о); 


\ 
Ф 
= 

и 


ту ФҒогтаї = "%-15$ %-7$ %-7$ %-15$\п"; 
ргіпі? фҒогтаї, ом(Мате Ѕһігі Нат Роѕіїіоп); 
Рог ту $сгемтетрег (@сгем) { 
ргіп? ФҒогта+, 
фсгемпетрег->{ ‘пате’ }, 
фсгемтетрег->{'ѕћігї'), 
фсгемтетрег->{ ‘Ват '}, 
фсгемтетрег->{`роѕітіоп'}; 


} 


Последняя часть выглядит не очень красиво из-за повторяющихся 
элементов. Мы можем сократить объем кода, использовав синтаксис 
обращения к части хеша. Универсальная форма записи имеет следую- 
щий вид: 


@911119ап_1пТо { дм(пате роѕі+іоп) } 
Обращение к хешу по ссылке будет выглядеть следующим образом: 
@{ Фһаѕһ ге? } { ом(пате ро$110п) } 


Мы можем отбросить первую пару фигурных скобок, поскольку внут- 
ри них находится обычная скалярная величина: 


@фһаѕһ ге? { ам(пате роѕіїіоп) } 
Теперь заключительный цикл можно записать в следующей форме: 


Тог му $сгемтетрег (@сгем) { 
ризпЕЁ ФҒогтаї, @%фсгемтетрег{ ам(пате зһігі һаї роѕіїіоп)}; 


} 


Для доступа к части массива или хеша по ссылке с помощью оператора 
стрелки (->) краткая форма записи отсутствует, точно так же как она 
отсутствует для доступа ко всему массиву или хешу. 


При выводе ссылки на хеш она будет выглядеть как НАЅН(0х1а203с), де- 
монстрируя шестнадцатеричный адрес хеша в памяти. Эта информа- 
ция совершенно бессмысленна для пользователя и может пригодиться 
только программисту как признак отсутствия операции разыменова- 
ния. 


Упражнения 


Ответы на эти вопросы вы найдете в приложении А в разделе «Ответы 
к главе 4». 
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Упражнение 1 [5 мин] 


К скольким различным элементам обращаются следующие строки? 


$91пдег 


->[21[11 


${$01п9ег[21$}[11 


$91пдег 


->[2]->[11 


${$91п09ег->[271}[11 


Упражнение 2 [30 мин] 


Опираясь на последнюю версию подпрограммы сНеск_геди1гед_11етз, 
напишите подпрограмму сһеск_іїетѕ_ѓог_а11, которая принимала бы 
ссылку на хеш в качестве единственного аргумента и выводила бы 
список пассажиров, взошедших на борт «Мшпо\», и список предме- 
тов, поднятых ими на борт. 


Хеш ссылок можно сконструировать примерно следующим образом: 


ту @911119ап = ... вещи, принадлежащие Джиллигану ...; 
ту @$К1ррег = ... вещи, принадлежащие Шкиперу ...; 
ту @ргоғеѕѕог = ... вещи, принадлежащие Профессору ...; 
ту %а11 = ( 

6111ідап => \@911119дап 


Ѕкіррег => \@ѕКкіррег 


Рго 
): 


спеск_1 


Геззог => \@ргоғеѕѕог 


сетз_Тог_а11(\%а11) 


Созданная подпрограмма должна обращаться к сһеск_гедиігед_і+ето 
для проверки каждого из пассажиров и членов экипажа и дополнения 
списка необходимыми предметами. 


Ссылки и области видимости 


Ссылки могут копироваться и передаваться подобно обычным скаляр- 
ным переменным. В любой момент времени Ре! имеет полную инфор- 
мацию о количестве ссылок на каждый элемент данных. Кроме того, 
Рег1 допускает возможность создания ссылок на анонимные структу- 
ры данных (структуры данных, у которых нет собственного имени) 
и способен даже создавать ссылки автоматически, если это необходимо 
для выполнения каких-либо операций. Посмотрим, как копируются 
ссылки и как это влияет на область видимости и распределение памяти. 


Несколько ссылок на данные 


В главе 4 было показано, как получить ссылку на массив @ѕкіррег и со- 
хранить ее в скалярной переменной: 


ту @ѕкіррег = ом(голубая_рубашка шляпа накидка солнечные_очки крем) 
ту Фгеғегепсе їо ѕкіррег = \@ѕкіррег; 


После этого ссылку можно скопировать или взять дополнительные 
ссылки, при этом все они будут ссылаться на один и тот же объект дан- 
ных и будут полностью взаимозаменяемы: 


ту Фзѕесопа геғегепсе іо ѕкіррег = $геғегепсе іо ѕкіррег; 
ту ФЕһіга геғегепсе їо ѕкіррег = \@ѕкіррег 


Начиная с этого момента у нас имеется четыре разных способа обраще- 
ния к данным, хранящимся в массиве @5кіррег: 


@ѕкіррег 
@фгеғегепсе_+о_ѕкіррег 
@фзесопа_геғегепсе_+о_ѕкіррег 
@фіһіга геғегепсе о ѕкіррег 


Рег1 запоминает количество созданных ссылок для каждого элемента 
данных; этот механизм называется подсчетом ссылок. Исходное имя 
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структуры считается как одна ссылка. Создание каждой новой ссылки 
(включая операцию копирования ссылки) увеличивает счетчик ссы- 
лок на единицу. В данном случае мы получили четыре ссылки на мас- 
сив с предметами экипировки. 


Ссылки можно создавать и удалять по мере надобности. Пока счетчик 
ссылок не обнулится, Рег| будет хранить массив в памяти и предостав- 
лять к нему доступ любым из имеющихся способов. Например, мы 
могли бы создать временную ссылку: 


спеск_рго\1$101$_11$1 (\@зк1ррег) 


В момент вызова подпрограммы Рег] создаст пятую ссылку и скопиру- 
ет ее в массив входных аргументов @_ подпрограммы. Подпрограмма 
сама может создать дополнительные копии ссылки, а Рег1 автоматиче- 
ски нарастит счетчик ссылок. Когда подпрограмма вернет управле- 
ние, Рег автоматически уничтожит все ссылки, созданные внутри 
подпрограммы, и количество ссылок опять будет равно четырем. 


Ссылки можно уничтожать, для этого достаточно записать в перемен- 
ную со ссылкой что-либо, что не является ссылкой на массив @$К1ррег. 
Например, можно присвоить значение ипе: 


фгеғегепсе о ѕКіррег = ипаеЁ; 
Или просто выйти за область видимости переменной: 


ту @ѕкіррег = ...; 
{ # блок программного кода 


пу $геЁ = \@ѕкіррег; 


} # в этой точке программа выходит из области видимости фгеё 


В частности, если ссылка хранится в локальной переменной подпро- 
граммы, она автоматически уничтожается, когда подпрограмма воз- 
вращает управление. 


Неважно, изменяем ли мы сами значение переменной со ссылкой или 
программа покидает область видимости переменной, Рег! автоматиче- 
ски уменьшает счетчик ссылок на объект данных. 


Утилизация памяти, занимаемой массивом, производится только ко- 
гда все ссылки (включая и оригинальное имя массива) выйдут за преде- 
лы области видимости. То есть Ре! освободит память, занимаемую мас- 
сивом @зк1ррег, только когда будут уничтожены все ссылки на массив. 


Эта память будет доступна Ре!г| для размещения других данных этой 
же программы. И вообще Ре!| не возвращает память операционной 
системе. 
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А если это было имя структуры? 


Как правило, все ссылки на переменную уничтожаются до того, как 
сама переменная выйдет за пределы области видимости. А что про- 
изойдет, если ссылка на переменную останется, после того как про- 
грамма покинет область видимости самой переменной? Рассмотрим 
следующий пример: 


ту фгеғ; 
{ 


ту @ѕкіррег = ам(голубая_рубашка шляпа накидка солнечные_очки крем); 
фге? = \@ѕкіррег; 


ргіп "Фгеғ->[2 1\1"; # выведет слово “накидка\п” 


} 


ргіпі "$гег->[2]\п”; # точно так же выведет слово “накидка\п” 


Сразу же после объявления массива @ѕкіррег расположена единствен- 
ная ссылка на список из пяти элементов. После инициализации пере- 
менной фге? счетчик ссылок увеличивается на единицу и становится 
равным двум. После того как поток исполнения выйдет за пределы бло- 
ка, имя переменной @ѕ5Ккіррег станет недоступным и счетчик ссылок 
уменьшится на единицу. Однако обращение по имени переменной — 
это лишь один из двух способов доступа к массиву! Таким образом, 
список из пяти элементов продолжает существовать в памяти и ссыл- 
ка ге? по-прежнему указывает на него. 


В этой точке программы список становится анонимным массивом, то 
есть массивом без имени. 


До тех пор пока значение переменной $ге{ не изменится или пока про- 
грамма не выйдет за пределы области видимости этой переменной, нам 
доступны те же самые возможности по разыменованию ссылки, какие 
у нас имелись до того, как имя массива вышло за пределы области ви- 
димости. Фактически массив остается все тем же массивом со всеми 
его особенностями. Мы так же можем сокращать или увеличивать чис- 
ло элементов в массиве, как и в любом другом массиве Рег]: 


риѕћ @фге#, ‘секстан’; # добавить предмет экипировки 
ргіпЕ "Фге?->[-1 1\1"; # выведет слово секстан\п 


Мы можем даже увеличить счетчик ссылок таким образом: 
пу $сору о? ге? = $ге?; 

или таким, что суть то же самое: 
пу сору о? ге? = \@фге?; 


Данные продолжают существовать в памяти до тех пор, пока не будет 
уничтожена последняя ссылка: 


фге? = ипде?; # пока еще нет... 
фсору о ге? = ипде?; # теперь все! 
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Данные продолжают существовать в памяти до тех пор, пока не будет 
уничтожена последняя ссылка, даже если ссылка на эти данные нахо- 
дится внутри других структур данных. Предположим, что один из эле- 
ментов массива является ссылкой. Вернемся к примеру из главы 4: 


@ѕкіррег = ам(голубая_рубашка шляпа накидка солнечные_очки крем); 
@ѕкіррег міїһ пате = (‘Шкипер’, \@ѕкіррег); 


@ргоғеѕѕог = ам(крем фляжка с_ водой рулетка батарейки радиоприемник); 
@ргоҒеѕѕог міїћ пате = (‘Профессор’, \@ргоҒеѕѕог); 


@91111дап = ам( красная рубашка шляпа счастливые _носки фляжка с. водой); 
@01111ідап міїһ пате = (‘Джиллиган’, \@911119ап); 


а сч а < < 


@а11 міїһ патеѕ = ( 
\@ѕкіррег_міїһ_папе, 
\@ргоғеѕѕог_ міїһ папе, 
\@0111ідап_ міїһ пате, 
); 


Теперь представьте, что все промежуточные переменные являются ча- 
стью подпрограммы: 
ту @а11_м11И_памез; 


ѕир 1п1{1а117е_рго\1$101п$_11$1 { 
у @ѕкіррег = ом( голубая рубашка шляпа накидка солнечные очки крем); 
у @ѕКкіррег_ мі+һ пате = (‘Шкипер’, \@ѕКкіррег); 


у @ргоғеѕѕог = ам(крем фляжка с водой рулетка батарейки радиоприемник); 
у @ргоғеѕѕог міїһ пате = ('Профессор’, \@ргоғеѕѕог); 


у @09і11ідап = ам(красная рубашка шляпа счастливые носки фляжка_с_водой); 
у @91111ідап міїһ пате = (‘Джиллиган’, \@911119ап); 


@а11 міїһ патеѕ = ( 
\@ѕкіррег_міїһ_папе, 
\@ргоғеѕѕог_ міїһ_ пате, 
\@0111ідап_ міїһ пате, 

); 

} 


іпіі1а1іғе ргоуіѕіопѕ_ 1151( ); 


Мы записали в массив @а11 м1{П_патез три ссылки. Внутри подпро- 
граммы определены именованные массивы, содержащие ссылки на 
другие именованные массивы. В конечном счете ссылки на все данные 
сосредотачиваются в глобальном массиве @а11_міїһ_патеѕ. Но когда 
подпрограмма возвращает управление, имена шести массивов оказы- 
ваются за пределами области видимости. Внутри подпрограммы было 
создано по дополнительной ссылке на каждый из массивов, что приве- 
ло к увеличению счетчиков ссылок. По выходе из подпрограммы счет- 
чики ссылок были уменьшены, но они не стали равны нулю, поэтому 
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данные остались в памяти, хотя доступ к ним теперь возможен только 
с помощью массива @а11 міїћ_патеѕ. 


Мы можем отказаться от глобальной переменной @а11_міїћһ_ патеѕ и воз- 
вращать список в виде возвращаемого значения: 


ѕир деї ргоуіѕіопѕ 1151 { 
ту @ѕкіррег = ам( голубая рубашка шляпа накидка солнечные очки крем); 
ту @ѕКкіррег_ міїһ пате = (‘Шкипер’, \@ѕкіррег); 


ту @ргоғеѕѕог = дм(крем фляжка _с_водой рулетка батарейки радиоприемник); 
ту @ргоғеѕѕог міїһ пате = (`Профессор', \@ргоғеѕѕог); 


ту @011119ап = дм(красная_рубашка шляпа счастливые носки фляжка _с_водой); 
ту @0111ідап мі+һ пате = (‘Джиллиган’, \@911119ап); 


геїигп ( 
\@ѕкіррег_міїһ_папе, 
\@ргоғеѕѕог_ міїћһ_ пате, 
\@0111ідап_ міїһ пате, 
); 
} 


ту @а11 міїһ патеѕ = де*_рго\1$10п$_11$1( ); 


В данном примере подпрограмма создает возвращаемое значение, 
представляющее собой список из трех элементов, который затем запи- 
сывается в переменную @а11_міїһ_папеѕ. Внутри процедуры были вы- 
полнены операции взятия ссылок на каждый из именованных масси- 
вов, которые стали частью возвращаемого значения, вследствие чего 
данные продолжат свое существование в памяти.!,? Если мы изменим 


' Сравните с тем, как функции в языке С возвращают массивы. Мы должны 
либо вернуть указатель на статическую область памяти, и как следствие 
функция становится нереентерабельной, либо выделить память с помощью 
функции па110с, но тогда вызывающая программа обязана будет явно осво- 
бодить эту область с помощью функции Ггее. В случае с Рег1 все необходи- 
мые действия он делает самостоятельно. – Примеч. авторов. 


По стандартам последних лет для С/С++ (С99, например, или АМ№ЅІ С) 
функция может возвращать в качестве результата сложную структуру дан- 
ных (структуру, массив ит. д.), при этом место для результата резервирует- 
ся в стеке возврата. Картина наблюдается такая же, что и в Регі, а предыду- 
щее утверждение авторов не имеет силы. — Примеч. науч. ред. 


2 Реально картина еще чуть сложнее: а) в подпрограмме создаются массивы, 
и счетчик ссылок на них становится равным 1; б) в промежуточную ано- 
нимную (неименованную) структуру для гефигп записываются значения, 
и счетчик становится равным 2; в) при завершении подпрограммы опреде- 
ления массивов покидают область видимости, и счетчик уменьшается до 1; 
г) при копировании возвращаемой ссылки в @а1] \1{Н_патез счетчик снова 
увеличивается до 2; д) после чего уничтожается анонимная промежуточ- 
ная структура, возвращенная гетигп, и счетчик снова возвращается в 1. – 
Примеч. науч. ред. 
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или уничтожим ссылки в массиве @а11 мііћһ патеѕ, Рег] уменьшит счет- 
чики ссылок на соответствующие массивы. Если при этом они достиг- 
нут нуля (как в данном примере), то будут уничтожены и сами масси- 
вы. Поскольку массивы, на которые ссылаются элементы массива 
@а11 м1{П_патез, тоже содержат ссылки (например, ссылка на массив 
@ѕкіррег), РегІ аналогичным образом уменьшит соответствующие счет- 
чики ссылок. И опять же, если при этом счетчики ссылок обнулятся, 
память, занимаемая массивом, будет освобождена. 


Уничтожение вершины древовидной структуры данных приводит 
к уничтожению всех данных, содержащихся в этой структуре. Исклю- 
чение составляют случаи, когда были созданы дополнительные копии 
ссылок на вложенные элементы. Например, мы можем скопировать 
ссылку на список предметов экипировки Джиллигана: 


ту $91111 дап_зТиРЁ = $а11 міїһ патеѕ[21[1]; 


Теперь, когда будет уничтожен массив @а11_міїћһ_папеѕ, у нас останется 
одна ссылка на массив, который изначально был создан под именем 
@011119ап, и соответственно в памяти останутся данные, составляющие 
содержимое этого массива. 


Здесь все просто: пока остается хотя бы одна ссылка на данные, оста- 
ются и сами данные. 


Ошибки при подсчете ссылок 


Основное назначение механизма подсчета ссылок в том, чтобы дать 
возможность управления памятью в течение длительного периода вре- 
мени. Один из недостатков этого механизма заключается в том, что он 
не в состоянии корректно выполнять подсчет при наличии перекрест- 
ных ссылок - когда одна часть общей структуры создает обратную 
ссылку на другую часть структуры, образуя замкнутую петлю. Пред- 
положим, что у нас есть две структуры, причем обе они содержат ссыл- 
ки друг на друга (рис. 5.1): 


ту @дафа1 = дм(опе моп); 
ту @дафа2 = дм(+мо +оо То); 


@4аа1 
опе 


МОП 


Рис. 5.1. Когда ссылки на структуры данных образуют замкнутую петлю, 
механизм подсчета ссылок может оказаться не в состоянии распознать 
необходимость проведения утилизации областей памяти 
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риѕћ @да+а2, \@дата1; 
риѕћ @да+а1, \@дата2; 


Итак, у нас есть два способа обратиться к структуре данных @йаїа1: по 
имени @дата1 и по ссылке @{$0а1а2[3]}. Точно так же у нас есть два спо- 
соба обратиться к структуре данных @йаїа2: по имени @дата2 и по ссыл- 
ке @{$0а+а2[2]). Получился замкнутый круг. Фактически мы получи- 
ли возможность обратиться к элементу моп бесконечным числом спосо- 
бов, например $9ата1[2][3][2][31[21[31][11. 


Что произойдет, если оба эти массива выйдут за пределы области их ви- 
димости? Прежде всего счетчики ссылок на массивы уменьшатся с двух 
до одного, но не до нуля. А поскольку счетчики будут иметь ненулевые 
значения, Рег] будет считать, что существует еще какой-то способ об- 
ратиться к этим массивам, хотя фактически это не так! Подобные 
утечки памяти приводят к тому, что программа с течением времени 
начинает потреблять все больше и больше памяти. Тьфу! 


Вам может показаться, что данный пример придуман искусственно. 
Разумеется, в реальной программе мы постараемся избежать создания 
структур данных, образующих перекрестные ссылки! Но программи- 
сты часто создают такие перекрестные ссылки в своих программах, 
например, для организации двусвязных списков, кольцевых списков 
и некоторых других структур данных. Ключ к решению этой пробле- 
мы заключается в том, что программисты на языке Рег] крайне редко 
прибегают к перекрестным ссылкам, потому что в Рег| отсутствуют 
причины, вынуждающие к этому. В большинстве случаев перекрест- 
ные ссылки создаются из-за необходимости управлять памятью и свя- 
зывать между собой разобщенные блоки памяти. Если вы знакомы 
с другими языками программирования, то наверняка обратили внима- 
ние, что многие задачи программирования на языке Рег! могут быть 
реализованы гораздо проще. Например, насколько просто выполняет- 
ся сортировка списка элементов, добавление или удаление элементов 
даже из середины списка. Эти задачи могут оказаться достаточно 
сложными для реализации в других языках программирования и по- 
влечь необходимость создания перекрестных ссылок между структу- 
рами данных, чтобы обойти ограничения, накладываемые языком.! 


Зачем мы упомянули об этом здесь? Дело в том, что даже программи- 
сты, работающие с языком Рег1, иногда просто копируют алгоритмы, 
реализованные на других языках программирования. В этом нет ниче- 
го предосудительного, хотя в таких ситуациях лучше будет проанали- 
зировать причины, которые заставили автора прибегнуть к перекрест- 
ным ссылкам, и затем реализовать тот же алгоритм, но с учетом осо- 


1 Тем не менее это общая и хорошо известная проблема всех систем «сборки 
мусора» (управления утилизацией неиспользуемой памяти), построенных 
на простом подсчете числа ссылок к структурам данных. – Примеч. науч. 
ред. 
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бенностей Ре. По-видимому, здесь можно будет использовать хеш 
или массив, который впоследствии будет отсортирован. 


Вероятно, в будущем вместо или в дополнение к механизму подсчета 
количества ссылок в Ре! появится сборщик мусора.! Но до тех пор не- 
обходимо с большой осторожностью подходить к созданию структур 
с перекрестными ссылками. И если в этом действительно возникает 
необходимость, то прежде чем покидать область видимости таких пе- 
ременных, необходимо в обязательном порядке разрывать образовав- 
шиеся замкнутые петли ссылок, как это сделано, скажем, в следую- 
щем примере: 


{ 
ту @дафа1 = дм(опе моп); 
ту @дафа2 = дм(+мо +оо їо); 
риѕћ @аа+а2, \@дата1; 
риѕћ @дата1, \@дата2; 
действия над @дата1, @дата2 ... 
# прежде чем выйти из блока: 
@да+аї = ( ); 
@да+а2 = ( ); 


} 


Здесь мы принудительно уничтожили ссылки на @йаїа2 в @йаїа1 и на- 
оборот. Теперь для каждой структуры имеется только по одной ссылке 
и по завершении работы блока кода счетчики ссылок обнулятся. На са- 
мом деле здесь достаточно было уничтожить ссылку только в одной из 
структур. В главе 13 показано, как создаются нежесткие ссылки, кото- 
рые помогут решить многие из указанных проблем. 


Создание анонимных массивов 


В подпрограмме деї ргоуіѕіопѕ_1151, о которой говорилось выше, мы 
создали полдюжины именованных массивов только для того, чтобы 
получить ссылки на них. По завершении подпрограммы мы выходили 
из области видимости имен массивов и у нас оставались только ссылки 
на эти массивы. 


Создание временных именованных массивов в простейших случаях не 
вызывает затруднений, но в случае достаточно сложных структур дан- 
ных подбирать имена массивов непросто. Нам пришлось бы задумы- 
ваться об именах массивов лишь для того, чтобы через мгновение за- 
быть о них. 


Мы можем ликвидировать затруднения с выбором имен массивов, су- 
зив область видимости имен. Например, вместо того чтобы создавать 


1 Только не спрашивайте нас об этом. Мы писали эту книгу задолго до того, 
как у нас появилась возможность узнать об этом. Поэтому в то время нам 
еще ничего не было известно. 
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массив в области видимости подпрограммы, мы можем создать его 
внутри временного блока: 


ту @ѕкіррег_ міїћ пате 

{ 
ту @ѕкіррег = ам(голубая_рубашка шляпа накидка солнечные_очки крем) 
@ѕкіррег_міїһ_пате = (‘Шкипер’, \@ѕкіррег) 

} 


По выходе из блока второй элемент массива @$К1ррег_м1{И_пате — это 
ссылка на массив, который внутри блока был известен под именем 
@ѕкіррег. Но теперь это имя лишено всякого смысла. 


Однако все равно приходится вводить с клавиатуры слишком много 
ненужной информации только для того, чтобы сказать: «Второй эле- 
мент — это ссылка на массив, содержащий сведения о предметах эки- 
пировки». Мы можем создать ссылку на массив напрямую, для этого 
нужно лишь воспользоваться конструктором анонимного массива, 
который записывается в виде квадратных скобок: 


ту $гег то ѕкіррег ргоуіѕіопѕ = 
[ ам( голубая рубашка шляпа накидка солнечные_очки крем) ]; 


Квадратные скобки принимают значения, заключенные в них (в спи- 
сочном контексте), создают новый анонимный массив, инициализиру- 
ют его заданными значениями и (что самое важное) возвращают ссыл- 
ку на массив. То есть, как если бы мы написали: 


ту $гег то ѕкіррег ргоуіѕіопз; 
{ 
ту @ѓетрогагу пате = 
( ом( голубая рубашка шляпа накидка солнечные очки крем) ); 
фге? то ѕкіррег ргоуіѕіопѕ = \@іетрогагу пате; 


} 


Здесь нам не нужно задумываться над временным именем массива 
и, кроме того, отпала необходимость во временном блоке. Результат 
работы конструктора анонимного массива является ссылкой на мас- 
сив, которую можно использовать там же, где и скалярные величины. 


Теперь, опираясь на это обстоятельство, мы можем конструировать 
большие списки: 


ту $гег то ѕкіррег ргоуіѕіопѕ = 
[ ам(голубая_рубашка шляпа накидка солнечные очки крем) 1; 
ту @ѕкіррег міїһ пате = (‘'Шкипер’, Фге? о ѕкіррег ргоуіѕіопз) 


Разумеется, во временной скалярной переменной нет никакой необхо- 
димости. Мы можем вставить скаляр прямо в массив: 


ту @ѕкіррег міїһ пате = ( 
"Шкипер’, 
[ ам( голубая рубашка шляпа накидка солнечные_очки крем) ]; 


); 
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Теперь посмотрим, что у нас получилось. Мы объявили массив @$К1р- 
рег_міїћһ_ папе, первый элемент которого – это имя Шкипера, а второй — 
ссылка на массив из пяти элементов. Таким образом, мы получили 
массив @5кіррег_міїһ_ пате, содержащий два элемента, как и ранее. 


Не следует путать квадратные скобки с круглыми. В данном примере 
они имеют разные предназначения. Если мы заменим квадратные скоб- 
ки круглыми, то в результате получим список из шести элементов. Ес- 
ли заменим круглые скобки квадратными, то получим ссылку на ано- 
нимный массив с двумя элементами, которая будет записана в первый 
элемент массива @ѕкіррег_міїћ_папе.! Проще говоря, программный код: 


ту Ф#гиіїѕ; 

{ 
ту @ѕесге уагіар1е = (‘ананас’, ‘папайя’, ‘манго’); 
фЕгиіїѕ = \@ѕесгеї уагіар1е; 


} 
можно заменить на: 
ту $Еги11$ = [‘ананас’, ‘папайя’, ‘манго’ ]; 


Годится ли этот прием для создания более сложных структур? Конеч- 
но! Всякий раз, когда возникает необходимость в получении ссылки 
на массив, мы можем обратиться к конструктору анонимного массива. 
Фактически мы можем встроить их даже в наш пример со списками 
предметов экипировки: 


ѕир деї ргоуіѕіопѕ 1151 { 
геїигп ( 
['Шкипер', [ом(голубая рубашка шляпа накидка 
солнечные очки крем) ]], 
[ ‘Профессор’, [ам(солнечные очки фляжка с_ водой рулетка 
батарейки радиоприемник) ]], 
[‘Джиллиган’, [дм(красная рубашка шляпа счастливые носки 
фляжка с_ водой) ]], 
); 
} 


ту @а11 міїһ патеѕ = деї _рго\1$10п$_11$1( ); 


Если посмотреть на это извне, то мы получаем возвращаемое значение, 
состоящее из трех элементов. Каждый из этих элементов -— это ссылка 
на массив, содержащий два элемента. Первый элемент каждого из 
массивов — это строка с именем персонажа, а второй – ссылка на ано- 
нимный массив переменной длины, содержащий список предметов 
экипировки. Всего этого нам удалось добиться, не придумывая имена 
промежуточных переменных и массивов. 


1 В аудитории мы на собственном опыте не раз убеждались, что подобные 
ошибки чуть ли не самые распространенные при работе со ссылками. 
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С точки зрения вызывающей программы возвращаемое значение этой 
подпрограммы совершенно идентично ее предыдущей версии. А с точ- 
ки зрения сопровождения программного кода нам удалось уменьшить 
визуальную помеху восприятия, ликвидировав ненужные промежу- 
точные имена. 


Существует возможность создавать ссылки на пустые анонимные мас- 
сивы. Например, если нам потребуется добавить в список пассажиров 
«миссис Хоуэлл» , которая решила отправиться на экскурсию налегке, 
мы можем просто написать: 


[‘миссис Хоуэлл’, 
Г] 
1, 


Это один из элементов длинного списка. Данный элемент представля- 
ет собой ссылку на массив с двумя элементами, первый из которых — 
это строка с именем, а второй — ссылка на пустой анонимный массив. 
Массив пуст просто потому, что миссис Хоуэлл решила отправиться 
в поездку налегке. 


Создание анонимных хешей 


Процедура создания анонимных хешей похожа на создание аноним- 
ных массивов. Рассмотрим список членов экипажа, который приво- 
дился в главе 4: 


ту %911119ап_1пРо = ( 
пате => ‘Джиллиган’, 
һа => ‘Белый’, 
ѕһігі => ‘Красный’, 
ро$1{1оп => 'Первый помощник капитана’, 


); 


ту %зк1тррег_1пРо = ( 

пате => ‘Шкипер’, 

рат => ‘Черный’, 
ѕһігї => ‘Голубой’, 
роѕіїіоп => ‘Капитан’, 


); 
ту @сгем = (\%911119ап_1пРо, \%ѕкіррег іпғо); 


Переменные %0111ідап_іпғо и %5кіррег_іпғо являются временными, они 
служат лишь для того, чтобы создать хеши, которые позднее войдут 
в состав конечной структуры данных. Создать ссылки на хеши можно 
посредством конструктора анонимного хеша, который записывается 
в форме фигурных скобок. Так, предыдущие строки мы можем заме- 
нить на: 


ту фге? 10_911119ап_1пР0; 
{ 
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ту %911119ап_1пРо = ( 

пате => ‘Джиллиган’, 

һа => ‘Белый’, 

ѕһігі => ‘Красный’, 

ро$1{1оп => 'Первый помощник капитана’, 
); 
фгеЁ_10_911119ап_1пРо = \%91111дап_1 по; 
} 


и, воспользовавшись конструктором анонимного хеша, на: 


ту $гег 1о_911119ап_1п®о = { 
пате => ‘Джиллиган’, 
рат => ‘Белый’, 
ѕһігі => ‘Красный’, 
ро$1{1оп => 'Первый помощник капитана’, 


}; 


Значение, заключенное в фигурные скобки, — это список, состоящий 
из восьми элементов. Этот список преобразуется в анонимный хеш, со- 
держащий четыре элемента (четыре пары ключ-значение). Рег] берет 
ссылку на этот хеш и возвращает ее в виде скалярного значения, кото- 
рое мы записываем в скалярную переменную. Таким образом, мы мо- 
жем переписать программный код создания списка: 


ту Фгеғ_+о_ді11ідап_ іпғо = { 
пате => ‘Джиллиган’, 
рае => ‘Белый’, 
ѕһігі => ‘Красный’, 
ро$1{1оп => 'Первый помощник капитана’, 
}; 
ту $гег_ ѕкіррег іпёо = { 
пате => ‘Шкипер’, 
рат => ‘Черный’, 
ѕһігї => ‘Голубой’, 
роѕіїіоп => ‘Капитан’, 
}; 
ту @сгем = (Фге? то 9і11ідап іпғо, $геР о ѕкіррег іпёо); 


Как и ранее, мы можем вообще отказаться от переменных и сразу 
вставлять необходимые значения в список верхнего уровня: 


ту @сгем = ( 


{ 

пате => ‘Джиллиган’, 

һа => ‘Белый’, 

ѕһігі => ‘Красный’, 

ро$1{1оп => 'Первый помощник капитана’, 
}, 
{ 


пате => ‘Шкипер’, 
һа => ‘Черный’, 
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ѕһігї => ‘Голубой’, 
роѕіїіоп => ‘Капитан’, 
}, 
); 

Обратите внимание: мы оставили запятые в списках после тех элемен- 
тов, за которыми не следует сразу же закрывающая скобка. Этот стиль 
оформления хорош, поскольку облегчает сопровождение программно- 
го кода. Он позволяет добавлять новые элементы, переупорядочивать 
их или вставлять строки с комментариями, не нарушая целостность 
самих списков. 


Теперь содержимое массива @сгем совершенно идентично тому, что бы- 
ло получено ранее, но на этот раз нам не потребовалось придумывать 
имена промежуточных структур данных. Как и прежде, массив @сгем 
состоит из двух элементов, каждый из которых представляет собой 
ссылку на хеш с информацией о конкретном члене экипажа. 


Конструктор анонимных хешей всегда представляет свое содержимое 
в списочном контексте, а затем конструирует хеш в виде пар ключ- 
значение точно так же, как если бы мы создавали именованный хеш. 
РегІ возвращает ссылку на этот хеш в виде единственного значения, 
которое может фигурировать там же, где и скалярные величины. 


Теперь попробуем взглянуть на все это с точки зрения синтаксическо- 
го анализатора: поскольку фигурные скобки служат как для оформле- 
ния вложенных блоков программного кода, так и для конструирова- 
ния анонимных хешей, компилятор может потребовать добавить до- 
полнительные определения, которые будут свидетельствовать о ваших 
намерениях. Если компилятор выберет неправильное решение, вы мо- 
жете помочь ему и явно сообщить, что предполагается получить. Что- 
бы подсказать компилятору, что некоторый синтаксический элемент 
является конструктором анонимного хеша, вставьте символ «плюс» 
(+) перед открывающей фигурной скобкой: +{...}. Чтобы подсказать 
компилятору, что он имеет дело с вложенным блоком программного 
кода, вставьте точку с запятой (которая представляет пустой опера- 
тор) в начало блока: {;...}. 
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Теперь посмотрим еще раз на список предметов экипировки. Допустим, 
что содержимое этого списка должно извлекаться из такого файла: 


Шкипер 
голубая_рубашка 
шляпа 
накидка 
солнечные очки 
крем 

Профессор 
солнечные очки 
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фляжка_с_водой 

рулетка 
Джиллиган 

красная рубашка 

шляпа 

счастливые носки 

фляжка _с_водой 


Перед названием каждого предмета присутствует отступ из несколь- 
ких пробелов. Строки, которые начинаются не с пробелов, соответст- 
вуют имени человека. Попробуем создать хеш предметов экипировки. 
Ключами хеша будут имена персонажей, а значениями – ссылки на 
массивы, содержащие списки предметов экипировки. 


Информация из файла извлекается с помощью простого цикла: 


ту %ргоу15101п5; 


ту Фрегѕоп; 
мһі1е (<>) { 
іР (/^(\$.*)/) { # имя персонажа (строка начинается не с пробелов) 
фрегѕоп = $1; 


$рго\1$101${Фрегзоп} = [ ] ип1ез$ ехіѕіѕ $ргоуіѕіопѕ{фрегзоп); 
$ е151? (/7\5+(\5.*)/) { # предмет экипировки 
аіе 'Имя персонажа не определено!‘ ип1еѕѕ деғіпеа фрегзоп; 
риѕћ @{ $ргоміѕіопѕ{Фрегзоп) }, $1; 
} е1ѕе { 
аіе "Не совсем понятно, что это такое: $"; 


} 


В первую очередь мы объявили переменные, в которых будут хранить- 
ся хеш с предметами экипировки и имя персонажа. После чтения оче- 
редной строки из файла выполняется проверка на наличие ведущих 
пробелов. Если была прочитана строка с именем персонажа, мы запо- 
минаем ее и создаем элемент хеша для этого персонажа. Проверка ип- 
1е5$ ехіѕїѕ позволяет избежать случайного удаления списка с предме- 
тами экипировки в том случае, если список предметов, принадлежа- 
щих одному и тому же персонажу, окажется разбитым на две части 
в исходном файле. 


Например, впоследствии в конец файла могут быть добавлены две 
строки: «Шкипер» и « секстан» (обратите внимание на наличие веду- 
щих пробелов), которые только расширяют уже существующий спи- 
сок предметов, принадлежащих Шкиперу. 


Ключом хеша является имя персонажа, а значением — ссылка на ано- 
нимный массив (изначально пустой). Если будет прочитана строка 
с названием предмета экипировки, она вставляется в конец нужного 
массива по ссылке на него. 


Этот программный код прекрасно справляется с возложенной на него 
задачей, но он несколько избыточен. Почему? Потому что мы можем 
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опустить строку, где в элемент хеша записывается ссылка на пустой 
анонимный массив: 


ту %ргоу15101п5; 
ту Фрегзоп; 


мһі1е (<>) { 
іР (/^(\5.*)/) { # имя персонажа (строка начинается не с пробелов) 
Фрегзоп = $1; 
##$рго\1$1015{Фрегзоп} = [ ] ип1еѕѕ ехіѕіѕз фргоуіѕіопѕ{$регѕоп)}; 
$ е151? (/7\5+(\5.*)/) { # предмет экипировки 
аіе 'Имя персонажа не определено!‘ ип1еѕѕ деғіпеа $регзоп; 
ризй @{ $ргоміѕіопз{Фрегѕоп) }, $1; 
} е1ѕе { 
аіе "Не совсем понятно, что это такое: $"; 


} 


Как вы думаете, что произойдет, когда мы попытаемся добавить голу- 
бую рубашку в список предметов, принадлежащих Шкиперу? Если 
развернуть строку, которая вставляет название предмета в список, мы 
получим: 


риѕћ @{ $ргоуіѕіопѕ{ `Шкипер’} }, "голубая рубашка”; 


В этот момент элемент $ргоуіѕіопз{ 'Шкипер’ } еще не существует, однако 
мы пытаемся использовать его как ссылку на массив. Чтобы как-то 
разрешить сложившуюся ситуацию, Рег! автоматически создаст ссыл- 
ку на пустой анонимный массив, запишет ее в переменную и продол- 
жит исполнение. После этого ссылка на только что созданный массив 
будет разыменована и в него будет добавлена голубая рубашка. 


Этот процесс называется автовивификацией (аиїоріріѓісаііоп). При 
попытке разыменовать отсутствующую переменную или переменную 
со значением ипде{г для получения ссылки (формально это называется 
контекстом [-значения (Іраіие сопіехі)) автоматически подставляется 
соответствующая ссылка на пустой элемент, что позволяет интерпре- 
татору Рег! продолжить работу. 


Фактически мы всегда опирались на такой образ действия Ре, даже 
не подозревая об этом. Рег автоматически создает переменные, когда 
в этом возникает необходимость. Прежде элемент фргоуіѕіопѕ{ 'Шкипер’} 
не существовал, поэтому Рег! создал его. 


Следующий пример будет работать так, как ожидается: 


ту фпої уе; # новая неопределенная переменная 
@фпої уеі = (1, 2, 3); 


Здесь мы попытались разыменовать значение $п0ї_уеї, как если бы это 
была ссылка на массив. Но поскольку изначально эта переменная име- 
ла значение џпіеѓ, Рег выполнил действия, эквивалентные следую- 
щим строкам: 
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ту Фпот_ует; 

Фпот уеї = [ ]; # этот массив добавляется в результате 
автовивификации 

@фпої уеї = (1, 2, 3); 


Другими словами, изначально пустой массив превращается в массив 
из трех элементов. 


Механизм автовивификации справляется даже с вложенными опреде- 
лениями: 


пу Фтор 
$Тор->[2]->[4] = '1ее-10и’; 


Изначально переменная $іор содержит значение џпде?, но поскольку 
мы пытаемся разыменовать это значение как ссылку на массив, Рег] 
автоматически создает и вставляет ссылку на пустой анонимный мас- 
сив в переменную $10р. После этого производится попытка обращения 
к третьему элементу массива (индекс 2), что вынуждает Рег! увеличить 
размер массива до трех элементов. Данный элемент так же содержит 
значение ипдеР, поэтому Регі создает и вставляет в него ссылку на еще 
один пустой анонимный массив. После этого второй массив увеличива- 
ется в размерах и вего пятый элемент записывается строка `1ее-10и`'. 


Автовивификация и хеши 


Аналогичным образом механизм автовивификации работает и в слу- 
чае хешей. Если мы попытаемся разыменовать переменную, содержа- 
щую значение џпіеѓ, как если бы это была ссылка на хеш, автоматиче- 
ски будет создан пустой анонимный хеш, а ссылка на него будет запи- 
сана в эту переменную. 


Механизм автовивификации обычно широко применяется в задачах 
предварительной обработки данных. Например, представьте себе, что 
Профессор протянул и запустил в эксплуатацию компьютерную сеть 
острова, и теперь у него появилось желание вести учет объема трафика 
между компьютерами. Он стал вносить в системный журнал записи, 
каждая из которых содержит имена узла-отправителя и узла-получа- 
теля и количество переданных байтов: 


ргоГеззог. Пиф 911119дап. сгем. ћи 1250 
ргоТеззог. ћи 1оуеу. поме11. пит 910 
ТпигзТтоп. поме11. һит 10уеу. поме11. һи? 1250 
ргоТеззог. һи 1оуеу. ћоме11. һиї 450 
ргоғеѕѕог. һи 1аѕегЗ. соругоом. Пит 2924 
91пдег. дігі. һиї ргоғеѕѕог. ћи 1218 
Оіпдег. оіг1. һит тагуапп. оіг1. һит 199 


Теперь Профессор хочет получить сводную таблицу, которая содержа- 
ла бы в каждой строке имя узла-отправителя, имя узла-получателя 
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и общее количество байтов, переданное за сутки. Создать такую табли- 
цу нетрудно: 


ту %ота1_бу+еѕ; 
мһі1е (<>) { 
пу ($зоигсе, $0еѕііпа+іоп, $фруїеѕ) = 5р1її; 
фота1_буїеѕ { $ѕоигсе) {$@еѕїіпаіоп) += $Бутез; 
} 


Теперь посмотрим, как работает этот код, когда получает первую стро- 
ку данных. Итак, исполняется следующая строка: 


феота1 Буез{ ‘ргоТеззог. НиТ '}{ `9111ідап. сгем. һи’ } += 1250; 


Поскольку изначально хеш %10{а1 руїеѕ пуст, Рег1 не найдет ключ рго- 
Ғеѕѕог. һи и поэтому создаст новый элемент со значением ипіеѓ и вслед 
за этим сразу же попытается разыменовать его как ссылку на хеш. (Не 
забывайте, что в данном случае между двумя наборами фигурных ско- 
бок подразумевается оператор стрелки.) Рег| запишет в этот элемент 
ссылку на новый пустой анонимный хеш, в который тут же будет до- 
бавлен элемент с ключом 911119ап. сгем. пит. Начальное значение этого 
элемента — ипіеѓ, которое при попытке сложить его с числом 1250 ин- 
терпретируется как ноль; в результате в элемент хеша будет записано 
число 1250. 


При анализе всех последующих строк журнала, которые содержат те 
же имена узла-отправителя и узла-получателя, будет производиться 
добавление количества байтов в один и тот же элемент хеша. Но вся- 
кий раз, когда будет встречаться новое имя узла-получателя, в хеш бу- 
дет добавляться новый элемент со значением ипде{ в счетчике байтов, 
а когда встретится новое имя узла-отправителя, с помощью механиз- 
ма автовивификации будет создан хеш узла-получателя. Другими сло- 
вами, все необходимое Ре! сделает сам. 


После того как из файла будут извлечены все данные, можно вывести 
сводную таблицу. В первой колонке таблицы будут выводиться имена 
узлов-отправителей: 


Тог ту $зоигсе (кеуз %фота1 буїеѕ) { 


Во второй колонке – имена узлов-получателей. Здесь есть небольшая 
хитрость. Нам нужны все ключи хеша, полученного в результате ра- 
зыменования значения элемента первого хеша: 


Тог ту $зоигсе (кеуз %фота1 буїеѕ) { 
Тог ту ФдезЕ1пат1оп (Кеуз %{ $Тофа1 буфез{$зоигсе} }) { 


Вероятно, оба списка следовало бы отсортировать так, чтобы они оста- 
вались непротиворечивыми: 


Рог ту $зоигсе (зогЕ Кеуз %іота1 _буїеѕ) { 
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Рог ту $дезЕ1пат1оп (ѕогї кеуз %{ $1оіа1 руіеѕ{$ѕоџгсе} }) { 
ргіпі "$ѕоигсе => $@еѕііпаїіоп:", 
” $тота1 буїеѕ {$ѕоигсе) {$0еѕїіпатіоп) буѓеѕ\п”; 
} 
ргіп “\п”; 
} 

Это типичный подход к решению задачи вывода отчета.! Достаточно 
создать хеш хешей (возможно, с гораздо большей глубиной вложенно- 
сти, пример такой структуры встретится нам позже), заполнить все 
уровни с помощью механизма автовивификации и затем отобразить 
полученные результаты. 


Упражнения 


Ответы на эти вопросы вы найдете в приложении А в разделе «Ответы 
к главе 5». 


Упражнение 1 [5 мин] 


Сможете ли вы найти ошибку в следующем отрывке программы, не за- 
пуская его? Если ошибку не удастся обнаружить за одну-две минуты, 
попробуйте отыскать ее, запустив отрывок. 


ту %раѕѕепдег_1 = { 
пате => 'б1пдег’, 
аде => 22, 
оссиратіоп => 'Моуіе ЗТтаг’, 
геа1 аде => 35, 
рат => ипде?, 
}; 
ту Ираззепдег_2 = { 
пате => ‘Магу Апп’, 
аде => 19, 
рае => ‘роппет’, 
Ғауогіте_Ғооа => ‘согп’, 
}; 


ту @раѕѕепдегѕ = (\%раззепдег_1, \Фраѕѕепдег 2); 


Упражнение 2 [40 мин] 


Файл Профессора с данными о трафике (сосопет.4ат, который упоми- 
нался выше) можно загрузить с веб-сайта О’ВеШу. В этом файле име- 
ются комментарии, начинающиеся с символа решетки (#). Перепиши- 
те пример анализа файла таким образом, чтобы программа корректно 


1 Массу примеров структур данных можно найти в «Рег! Оафа Ѕігисёџгеѕ Соок- 
ТооК» и на страницах справочного руководства рег195с. 
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распознавала строки комментариев и пропускала их. (Подсказку вы 
найдете в самом комментарии, если прочитаете его!) 


Видоизмените пример таким образом, чтобы при выводе группы спи- 
ска с одним и тем же именем узла-отправителя в заголовке группы 
отображалось общее количество байтов, отправленных этим узлом. 
Отсортируйте список по числу отправленных байтов в порядке убыва- 
ния. Каждую отдельную группу списка с узлами-получателями отсор- 
тируйте по числу принятых байтов от заданного узла-отправителя 
в порядке убывания. 


В результате должен получиться список, в котором на первом месте 
должен стоять узел сети, отправивший больше всего байтов, а первым 
узлом-получателем в группе должен быть узел, получивший наиболь- 
шее количество байтов от данного узла-отправителя. После этого Про- 
фессор сможет воспользоваться полученными результатами для пере- 
стройки сети с целью повышения ее эффективности. 


Управление сложными 
структурами данных 


Итак, вы получили основные сведения о ссылках и можете перейти 
к рассмотрению дополнительных способов управления сложными 
структурами данных. Начнем с применения отладчика для изучения 
данных со сложной структурой, а затем покажем, как для тех же це- 
лей можно использовать модуль Бата: :Битрег. После этого вы научи- 
тесь легко и быстро сохранять и отыскивать данные со сложной струк- 
турой с помощью модуля 5$їогар1е, а в конце главы мы дадим обзор воз- 
можностей дгер и пар при работе со сложными данными. 


Использование отладчика для просмотра 
данных со сложной структурой 


Отладчик Рег| позволяет легко отобразить сложные данные. Напри- 
мер, попробуем выполнить программу подсчета трафика из главы 5 
в пошаговом режиме: 


ту %ота1_бу+еѕ; 

мһі1е (<>) { 

у ($з0игсе, фаеѕііпаіоп, $0уїеѕ) = 5р11ї; 
Тота1_буїеѕ{ $ѕоигсе) {$@еѕіпаіоп) += $Бутез; 


Рог ту $зоигсе (ѕогі Кеуз %оа1 руїеѕ) { 
Рог ту Фаеѕїіпа+іоп (ѕогі Кеуз %{ фіота1 руїеѕ{$ѕоџгсе} }) { 
ргіпі "$ѕоигсе => $@еѕііпаїіоп:", 

" фтота1_рутеѕ{ $ѕоигсе} { $0еѕііпаїіоп} руїеѕ\п”; 


} 
ргіп “\п”; 
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В тестировании будут участвовать следующие данные: 


ргоГеззог. һи 911119дап. сгем. ћи 1250 
ргоТеззог. һи 1оуеу. ћоме11. пит 910 
ТпигзТтоп. поме11. ћиї 10уеу. поме11. һи? 1250 
ргоТеззог. һи 1оуеу. ћоме11. пит 450 

91пдег. дігі. һиї ргоғеѕѕог. ћи 1218 

91 пдег. оіг1. һит тагуапп. оіг1. һит 199 


Запустить программу в режиме отладки можно разными способами. 
Один из самых простых – вызвать Ре! с ключом -0: 


уһоѕї% регі -а рутесоипіѕ руесоипіѕ-іп 


Гоадіпо ОВ гоиіпеѕ Ггом рег15а6.р1 уегѕіоп 1. 19 

Еаітог ѕиррогі ауаі1аб1е. 

Епег п ог ‘п п’ Тог һе1р, ог ‘тап рег1дерид’ Тог тоге һе1р 

аіп: : (рутесоипі$:2): ту %ота1_бу+еѕ; 
08<1> $ 

аіп: : (Буесоиптз:3): мһі2е (<>) 4 
08<1> $ 

аіп: : (рутесоипі$:4): ту ($зоигсе, $аеѕїјпа+іоп, $руіеѕ) = ѕр11ї; 
08<1> $ 

аіп: : (Буфесоцит$:5): фтота1 _Бутез{$зоигсе} {$@еѕііпаїіоп) += $бутез; 
08<1> х $ѕоигсе, $@еѕїіпатіоп, ФБутез 

О ‘ргоГеззог. пи * 

1 '911119дап. сгем. пи" 


2 1250 


Если вы собираетесь поэкспериментировать с программой самостоя- 
тельно, то должны знать, что каждая новая версия отладчика отлича- 
ется от предыдущей, поэтому у себя на экране вы можете увидеть не- 
сколько иную картину. И еще: если у вас возникнут какие-либо за- 
труднения, в любой момент вы можете ввести символ һ, чтобы полу- 
чить справку или заглянуть в рег1аос рег1йерид. 


Каждый раз, прежде чем исполнить очередную строку программного 
кода, отладчик выводит ее на экран. Это означает, что перед обраще- 
нием к механизму автовивификации мы сможем увидеть состояние 
ключей хеша. Команда $ выполняет один шаг, а команда х выводит 
список значений в удобочитаемом формате. С ее помощью мы можем 
убедиться, что переменные $30игсе, $дез{1па{1оп и $руїеѕ содержат кор- 
ректные значения. А теперь выполним второй проход цикла: 


08<2> $ 
таіп: : (бруёесоипіѕ:3): мһі1е (<>) { 


Мы только что создали новый элемент хеша с помощью механизма ав- 
товивификации. Теперь посмотрим, что у нас получилось: 


0В<2> х \Х+ота1_бутеѕ 
0 НАЅН(0х1320с) 
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"ргоғеѕѕог. һит’ => НАЅН(0х37а34) 
791111дап.сгем. һиї` => 1250 


Если команде х передается ссылка на хеш, она выведет содержимое 
всего хеша в виде пар ключ-значение. Если какой-либо из элементов 
хеша является ссылкой, содержимое вложенного хеша также будет 
выведено на экран. В данном случае мы видим, что хеш %іоіа1 руіеѕ 
имеет единственный ключ ргоғеѕѕог. һиї, соответствующее значение 
которого является ссылкой на другой хеш. Вложенный хеш содержит 
единственный ключ 0111ідап. сгем. һиї со значением 1250. 


Посмотрим, что произойдет после следующей операции присваивания: 


08<3> $ 

таіп: : (бруёесоџпіѕ:4): ту ($зоигсе, $аеѕїјіпа+іоп, $буіеѕ) = ѕр1ії; 
08<3> $ 

таіп: : (руёесоипіѕ:5): фіота1_буїеѕ { $ѕоигсе) { $%@еѕііпаїіоп) += $руїеѕ; 


08<3> х $ѕоџигсе, $аеѕііпатіоп, $6буѓеѕ 
0 ‘ргоГеззог. һи 
1 'Томеу. поме11. һи 
2 910 
08<4> $ 
таіп: : (бруёесоипіѕ:3): мһі1е (<>) { 
08<4> х \Х+ота1_ бутеѕ 
0 НАЅН(0х1320с) 
"ргоғеѕѕог. һит’ => НАЅН(0х37а34) 
`911119дап. сгем. һиї` => 1250 
’]1оуеу. һоме11. һит’ => 910 


Теперь мы добавили счетчик байтов, переданных от ргоѓеѕѕог. пи? к 10- 
уеу. поме] 1. пит. Хеш верхнего уровня при этом не изменился, но в хеше 
второго уровня появилась новая запись. Продолжим: 


08<5> $ 

таіп: : (бруёесоџпіѕ:4): ту ($зоигсе, $аеѕїјпа+іоп, $буіеѕ) = ѕр1ії; 
0В<6> $ 

таіп: : (руёесоипіѕ:5): фтота1 _Бутез{$зоигсе} { $@еѕііпаїіоп) += $бутез; 


08<6> х $зоигсе, $деѕііпатіоп, $6буѓеѕ 
0 `+ћигѕЕоп. поме11. Пи" 
1 `Іоуеу. поме11. һи 
2 1250 
0В<7> $ 
таіп: : (бруёесоипіѕ:3): мһі1е (<>) { 
08<7> х \Х+ота1_ Бутез 
0 НАЅН(0х1320с) 
"ргоғеѕѕог. һи` => НАЅН(0х37а34) 
*91111дап. сгем. һи’ => 1250 
`10уеу. Поме11. һи’ => 910 
Ұһигѕіоп. ћоме11. һи’ => НАЅН(0х2#9538) 
`10уву. поме11. һи’ => 1250 


Теперь стало гораздо интереснее! В хеше верхнего уровня появилась 
новая запись с ключом їһигѕіоп. һоме11.һиї и ссылка на новый хеш, соз- 
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данная механизмом автовивификации. Сразу же после создания в хеш 
была добавлена пара ключ-значение, свидетельствующая о том, что от 


ТИ 
ем 


гѕїоп. поме11. һи к 1оуеу. поме11.пи{ было передано 1250 байт. Сдела- 
еще один шаг: 


08<8> $ 

таіп: : (бруёесоипіѕ:4): ту ($зоигсе, $аеѕїјпа+іоп, $руіеѕ) = ѕр1ії; 
08<8> $ 

таіп: : (руёесоипіѕ:5): фіота1_руїеѕ { $ѕоигсе) {$@еѕііпаїіоп) += $руїеѕ; 


08<8> х $ѕоигсе, $0еѕтіпаііоп, $руїеѕ 

0 ‘ргоГеззог. Пит * 

1 'Томеу. поме11. һи 

2 450 
08<9> $ 

таіп: : (бруёесоипіѕ:3): мһі1е (<>) { 
08<9> х \Х+ота1_бутеѕ 

0 НАЅН(0х1320с) 

"ргоғеѕѕог. пиЕ’ => НАЅН(0х37а34) 
`91111дап. сгем. һи’ => 1250 
`10уву. поме11. һи’ => 1360 
`пигѕіоп. ћоме11. һи’ => НАЅН(0х2#9538) 
`10уву. поме11. һи’ => 1250 


Теперь увеличился счетчик байтов, переданных от ргоѓеѕѕог. һиї к 10- 
уву. һоме11. һит. В общем ничего особенного. Сделаем еще шаг: 


На 


08<10> $ 

таіп: : (бруёесоџпіѕ:4): ту ($зоигсе, $аеѕїјіпа+іоп, $буіеѕ) = ѕр1ії; 
08<10> $ 

таіп: : (руёесоипіѕ:5): фіота1_руїеѕ { $ѕоигсе) { $@еѕііпаїіоп) += $бутез; 


08<10> х $ѕоџгсе, фдеѕііпатіоп, $0ру+ез 
0 ‘91пдег. дігі. һи 
1 ‘ргоРеззог. һит 
2 1218 
08<11> $ 
таіп: : (бруёесоипіѕ:3): мһі1е (<>) { 
08<11> х \Хїота1 руїеѕ 
0 НАЅН(0х1320с) 
"9іпдег. дігі. һи’ => НАЗН(0х297474) 
"ргоғеѕѕог. һит’ => 1218 
"ргоғеѕѕог. һиЁ` => НАЅН(0х37а34) 
*91111дап. сгем. һи’ => 1250 
`10уву. поме11. һи’ => 1360 
Ұһигѕіоп. ћоме11. һи’ => НАЅН(0х2#9538) 
`10уву. поме11. һи’ => 1250 


этот раз добавилось новое имя узла-отправителя 01пдег. 91г1. һиї. 


Обратите внимание: теперь хеш верхнего уровня содержит три элемен- 
та и все три элемента ссылаются на разные вложенные хеши. Сделаем 
еще шаг: 


08<12> $ 
таіп: : (бруёесоипіѕ:4): ту ($зоигсе, $аеѕїјпа+іоп, $руіеѕ) = ѕр1ії; 
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08<12> $ 

тма1п: : (руёесоипіѕ:5): фіота1_буїеѕ { $ѕоигсе) {$@еѕііпаїіоп) += $руїеѕ; 

08<12> х $ѕоџгсе, фдеѕііпатіоп, $0у+ез 

0 ‘91пдег. 9171. һи’ 

1 ‘пагуапп. дігі. Пит” 

2 199 

08<13> $ 

таіп: : (бруёесоипіѕ:3): мһі1е (<>) { 

08<13> х \Хіоїа1 руїеѕ 

0 НАЅН(0х1320с) 

"діпдег. дігі. һи’ => НАЅН(0х297474) 
‘тагуапп. дігі. һи’ => 199 
"ргоғеѕѕог. һит’ => 1218 

"ргоғеѕѕог. һиї` => НАЅН(0х37а34) 
*91111дап. сгем. һи’ => 1250 
`10уеву. поме11. һи’ => 1360 

Ұһигѕіоп. ћоме11. һи’ => НАЅН(0х2#9538) 
`10уву. поме11. һи’ => 1250 


Теперь в хеш был добавлен второй узел-получатель с информацией о ко- 
личестве байтов, отправленных узлом 01пдег. 01г1.һиї. Поскольку это 
была последняя строка в файле с данными (в данном примере), сле- 
дующий шаг приводит к выходу из цикла мћі1е: 


08<14> $ 
таіп: : (бруёесоипіѕ:8): Тог ту $зоигсе (зог Кеуз %іота1 руїеѕ) { 


Мы не можем напрямую просмотреть элементы списка внутри круг- 
лых скобок, но можем отобразить его: 


08<14> х ѕогі Кеуѕ %їота1 буїеѕ 
0 ‘91пдег. 9171. һи 
1 ‘ргоғеѕѕог. пи" 
2 ‘тпигэтфоп. поме] 1. пит” 


Этот список будем просматривать в цикле Гог. Все эти элементы явля- 
ются именами узлов-отправителей, присутствующих в файле журна- 
ла. Ниже приводятся результаты выполнения следующего шага: 


08<15> $ 

та1п: : (руіесоџпіѕ:9): Тог ту $@еѕііпаїіоп (ѕогі Ккеуѕ %{ 
фтота1 руїеѕ{ $ѕоигсе! 
}) { 


Начиная с этого момента мы можем точно определить, какие значения 
будут получены из списка, стоящего в круглых скобках: 


08<15> х $ѕоигсе 
0 ‘91пдег. дігі. һи’ 

08<16> х $+ота1 Бутез{$зоигсе} 
0 НАЗН(0х297474) 
‘тагуапп. дігі. һи’ => 199 
‘ргоГеззог. Пиф” => 1218 
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08<18> х Кеуз %{ $Тофа1 руфез{$зоигсе } } 
О ‘тагуапп. дігі. Пит” 
1 ‘ргоРеззог. Пит ' 
08<19> х зогЕ кеуз %{ ${ота1 буіеѕ{$ѕоигсе } } 
0 `тагуапп. 91г1. Вит” 
1 ‘ргоРеззог. Пит * 


Обратите внимание: при выводе значения $їоїа1_руїеѕ{ $50игсе} отлад- 
чик показал, что это ссылка на хеш. Кроме того, похоже, что добавле- 
ние оператора ѕогі никак не повлияло на порядок следования отобра- 
жаемых данных, однако вы должны понимать, что вывод кеуѕ не все- 
гда будет происходить в порядке сортировки. На следующем шаге про- 
изводится вывод данных: 


08<20> $ 
таіп: : (бруёесоипіѕ: 10): ргіпЕ "$ѕоигсе => $@еѕііпаїіоп:", 
таіп: : (буёесоипіѕ:11): ” $тота1_руіеѕ{ $$0игсе} {$йеѕтіпатіоп)} руїеѕ\п” 


08<20> х $з0игсе, $@еѕііпаїіоп 
0 ‘91пдег. дігі. һи 
1 ‘пагуапп. дігі. Пит” 

08<21> х $Тота1 Бу{ез{$зоигсе } { $0еѕїіпатіоп} 
0 199 


Как видите, отладчик позволяет без особого труда просматривать даже 
структурированные данные, что существенно облегчает понимание 
принципа действия программы. 


Просмотр данных со сложной структурой 
с помощью модуля Вата::Оитрег 


Еще один способ визуализации данных со сложной структурой предо- 
ставляет базовый модуль Бата: : ритрег из дистрибутива Ре!1. Попробу- 
ем заменить заключительную часть программы подсчета трафика про- 
стым обращением к Вата: :Витрег: 


иѕе Вата: : ритрег; 


ту %ота1_бу+еѕ; 

мһі1е (<>) { 

у ($з0игсе, фаеѕііпа+іоп, $0уіеѕ) = $р1ії; 
Тота1_буїеѕ{$ѕоигсе) {$@еѕіпаіоп) += $Бутез; 
} 


ргіпі 0 


рег( \%Тота1 руіеѕ); 


с 


В модуле Бата: : Випрег определена подпрограмма с именем Пиптрег. Дан- 
ная подпрограмма напоминает по своему действию команду х отладчи- 
ка. Мы можем передать подпрограмме бипрег одно или более значений, 
а она в свою очередь преобразует эти значения в строку, готовую к вы- 
воду на экран. Разница между командой х отладчика и подпрограммой 
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Битрег состоит в том, что строка, создаваемая подпрограммой, являет- 
ся программным кодом на языке Регі: 


тућоѕїі% регі рутесоипт$2 <руіесоипіѕ-іп 
Ф\АВЯ = { 
`Ећигѕ+оп. һоме11. Ви” => { 
`10уву. ћоме11. һи’ => 1250 
}, 
‘91пдег. діг1. һи’ => { 
‘тагуапп. дігі. ћи` => 199 
"ргоғеѕѕог. Пиф” => 1218 
}, 
‘рготеззог. пит => { 
‘9111 19ап. сгем. һи’ => 1250 
`10уву. поме11.пие’ => 1360 
} 
}; 
тућоѕі% 


Этот программный код достаточно легко читается. Он показывает, что 
у нас имеется ссылка на хеш, состоящий из трех элементов, значением 
каждого из которых является ссылка на вложенный хеш. Мы можем 
исполнить этот код и получить хеш, эквивалентный оригиналу. Одна- 
ко пока не стоит рассматривать эту возможность как способ сохране- 
ния данных со сложной структурой между вызовами программы. 


Модуль Бата: :Витрег, как и команда х отладчика, прекрасно справляет- 
ся с перекрестными ссылками. Чтобы продемонстрировать это, вер- 
немся к примеру из главы 5, страдающему утечкой памяти: 


иѕе Вата: : ритрег; 

$Бата: :Оитрег: :Ригіїу = 1; # включить возможность работы 
# с перекрестными ссылками 

ту @дафа1 = дм(опе моп); 

ту @дафа2 = дм(+мо +оо То); 

риѕћ @дафа2, \@аатїа1; 

риѕћ @дафа1, \@дата2; 

рг1пЕ Витрег(\@дата1, \@дата2); 


Ниже приводится результат работы этой программы: 


Ф\МАВТ = [ 


“о.” 
Е 
] 
Е 
$\АВ1->[2][3] = $\АН1 
$Ф\АН? = $\АВ1->[2] 
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Обратите внимание, как подпрограмма ПБитрег создала переменные. 
Переменная $\УАН1 соответствует ссылке на @дата1, а $\/АВ2 — ссылке на 
@дата2. Отладчик отобразит эти данные аналогичным образом: 


0В<1> х \@дафта1, \@дата2 
0 АВААҮ(0х#914) 
0 ‘опе’ 
1 ‘моп’ 
2 АВВАУ(0х3122а8) 
0 ‘їмо’ 
1 ` 00’ 
2 ‘То’ 
3 АВАВАҮ(0х#914) 
-> ВЕЦЗЕО_АООВЕ$$ 
1 АВВАУ(0х3122а8) 
-> ВЕЦЗЕО_АООВЕ$$ 


В данном случае фраза ВЕЗЕО_АОБАЕЗ$ указывает на то, что некоторые 
части данных фактически являются ссылками на элементы, которые 
уже были показаны. 


УАМЕ 


Однако модуль 0аїа: : битрег — не единственное, с чем можно поиграть 
на острове. Брайан Ингерсон (Вгіап шхегзоп) придумал язык размет- 
ки ҮАМІ, (Үе Апоіћег Магкир Гапхиазе – еще один язык разметки), 
с помощью которого можно выводить данные в более удобочитаемом 
(и более компактном) виде. Данные на этом языке отображаются тем 
же способом, что и с помощью Бата: : Випрег. Позднее, когда будем вести 
более детальное обсуждение модулей, мы познакомимся с этим язы- 
ком поближе, а пока не будем слишком углубляться. 


Вернемся к предыдущему примеру и вместо Пата: :Питрег подставим 
ҮАМІ, а вместо вызова подпрограммы Пиптрег() будем вызывать подпро- 
грамму Оитр(). 


иѕе ҮАМІ; 
ту %ота1_бу+еѕ; 


мһі1е (<>) { 
ту ($зоигсе, Фаеѕтіпа+іоп, ФБуЕе$) = ѕр11ї; 
фтота1 _бутез{$зоигсе} {$@еѕііпатіоп} += $0уїеѕ; 
} 


ргіпі Витр(\+ота1_рутеѕ); 


Если воспользоваться теми же самыми исходными данными, будет по- 
лучен следующий результат: 


--- НУАМЕ:1.0 

91 пдег. 9171. Пит: 
тагуапп. дігі. һи: 199 
ргоғеѕѕог. пи: 1218 
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ргоГеззог. Пит: 
911119ап. сгем. пи: 1250 
10уеу. һоме11. һи: 1360 
тћигѕ+оп. поме] 1. һи: 
10уеу. һоме11. һи: 1250 


Теперь информация читается намного легче и занимает меньше места 
на экране, что действительно удобно при исследовании глубоко вло- 
женных структур данных. 


Сохранение данных со сложной структурой 
с помощью модуля Ѕ5їогаБіе 


Мы можем взять результат работы подпрограммы ПБитрег из модуля 
Бата: :Витрег, записать его в файл, а затем загрузить файл из другой про- 
граммы. После того как программный код на языке Ре! будет испол- 
нен, мы получим две переменные, $\/АН1 и $\АВ2, которые будут полно- 
стью эквивалентны первоначальным данным. Этот прием называется 
маршаллингом! (татзваЙйп=) данных: преобразование исходных дан- 
ных в форму, в которой они могут быть записаны в файл в виде последо- 
вательности байтов и из которой позднее они могут быть восстановлены. 


Однако для нужд маршаллинга удобнее другой базовый модуль Ре!: 
Ѕіогар1е. В сравнении с Вата: :Оитрег модуль Ѕїіогар1е порождает мень- 
шие по объему файлы. (Модуль Ѕїогар1е совсем недавно вошел в состав 
дистрибутива Рег], и его можно установить из СРАМ.) 


Интерфейс модуля Ѕїогар1е напоминает Бата: :Пипрег за исключением 
того, что все входные аргументы передаются подпрограмме в виде од- 
ной ссылки. Попробуем сохранить в файл структуры данных, имею- 
щие перекрестные ссылки: 


иѕе Ѕїогар1е; 

ту @дафа1 = дм(опе моп); 

ту @дафа2 = дм(+мо +оо їо); 

риѕћ @дафа2, \@датат; 

риѕћ @дафа1, \@дата2; 

ѕіоге [\@дата1, \@дата2], ‘зоме_1Р11е’; 


В результате будет получен файл длиной менее 100 байт, что намного 
меньше, чем было получено с помощью Пата: : пипрег. Кроме того, файл 
имеет удобочитаемый формат. Прочитать файл можно достаточно про- 
сто средствами модуля $їогар1е.? Выборка данных из файла также мо- 


1 В других языках и технологиях программирования такие преобразования 
более известны под термином сериализация (десериализация - при восста- 
новлении) данных. – Примеч. науч. ред. 

2 Формат представления данных модулем 5їогар1е по умолчанию зависит от 
аппаратной архитектуры. В документации к модулю показано, как созда- 
вать файлы, не зависящие от порядка следования байтов. 
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жет выполняться с помощью этого же модуля. Результатом будет един- 
ственная ссылка на массив. Посмотрим на полученные результаты, 
чтобы убедиться, что данные были сохранены корректно: 


иѕе Ѕїогар1е; 

ту фгеѕи1ї = геїгіеуе '`ѕоте Ғі1е'; 
иѕе Вата: : ритрег; 

$Бата: :Ритрег: Рига у = 1; 

ргіпі Витрег(Фгеѕџ1+); 


Ниже приводятся полученные результаты: 


ФУАТ = [ 
[ 
опе’, 
Моп’, 
[ 
мо", 
100’, 
07у 
г) 
] 
], 
Г] 
1: 


$МАВ1->[0][27[3] = $\АА1->[01; 
ФМАВ1->[1] = $УАВ1->[01[21; 


Функционально получилась структура данных, идентичная ориги- 
нальной. Здесь мы видим две ссылки на массивы внутри одного масси- 
ва верхнего уровня. Чтобы получить нечто более похожее на то, что мы 
видели в самом начале, опишем ожидаемый результат более явно: 


иѕе Ѕїогар1е; 

ту (Фагг1, $агг2) = @{ гефглеуе `ѕоте #?і1е’ }; 
иѕе Вата: : ритрег; 

ФБата: :Ритрег: :Ригі+у = 1; 

ргіпі Витрег($агг1, $агг2); 


или, что то же самое: 


иѕе Ѕїогар1е; 

ту фгеѕи1ї = геігіеуе '`ѕоте Ғі1е'; 
иѕе Вата: : ритрег; 

$ра+а: :Ритрег: :Ригі+у = 1; 

ргіпі Витрег(@$геѕи1+); 


в результате получим: 


ФУАВТ = [ 
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‘Тоо’, 
‘То’, 
Г] 
] 
1; 
$\АВ1->[2][3] = ФУАВ1; 
ФМАВ2 = $\УАВ1->[2]; 


практически то же самое, что и в первой программе. Посредством мо- 
дуля Ѕ$їогар1е мы можем сохранять данные в файле, а затем извлекать 
их из файла. Более подробную информацию о модуле Ѕїогар1е вы най- 
дете, как обычно, в документации рег1йос Ѕїіогар1е. 


Операторы дгер и тар 


По мере роста степени сложности структур данных все большее значе- 
ние начинают приобретать конструкции высокого уровня, позволяю- 
щие решать задачи по извлечению и преобразованию данных. В этом 
отношении операторы языка Ре! д гер и пар обладают непревзойденны- 
ми возможностями. 


Обходное решение 


Некоторые проблемы, на первый взгляд достаточно сложные, переста- 
ют быть таковыми после того, как будет найдено одно или два решения. 
Допустим, что необходимо определить, существуют ли в списке числа, 
имеющие нечетную сумму цифр, причем сами числа нас не интересу- 
ют – нам лишь нужно знать, есть такие числа в списке или нет. 


В таких случаях, как правило, достаточно найти косвенное решение.! 
В первую очередь перед нами встает проблема извлечения данных, по- 
этому мы воспользуемся оператором дгер. Попробуем отбирать данные 
не по значениям, а по индексам: 


ту @іприї питрегѕ = (1, 2, 4, 8, 16, 32, 64); 
ту @іпаісеѕ о? ода 0ідії ѕитѕ = дгер { 


} 0..Ф#іприт питрегз; 


Здесь выражение 0.. $#1 при{_питбегз представляет список индексов 
в массиве. Внутри блока переменная $_ может принимать целые значе- 
ния от 0 до 6 (всего семь элементов). Теперь нас не интересует, имеет 
ли число $_ нечетную сумму цифр. Нас интересует вопрос, имеет ли 
элемент массива с индексом $_ нечетную сумму цифр. Поэтому вместо 
$_ мы будем рассматривать число $1при* _питбегз[$_]: 


1 Известный принцип вычислительной техники гласит: «Нет такой задачи, 
которую нельзя было бы решить введением дополнительных уровней кос- 
венности». Разумеется, с ростом косвенности уменьшается очевидность ре- 
шения, поэтому здесь важно не перестараться и найти золотую середину. 
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ту @іпаісеѕ о? оаа _010ії ѕитѕ = дгер { 
пу Фпитрег = $іприі питреге[%_1; 
ту $зит; 
фѕит += $ Рог ѕр1ії //, $питрег; 
фит % 2; 

} 0..Ф%#іприт питрегз; 


В результате мы получим индексы чисел 1, 16 и 82: 0, 4 и 5. По значе- 
ниям этих индексов можно извлекать из массива сами числа: 


ту @ода 419ії ѕитѕ = @іпри питрегѕ[ @іпаісеѕ о? оаа 01011 ѕитѕ 1]; 


Принцип решения здесь заключается в том, чтобы использовать $ для 
хранения идентификатора конкретного элемента, как, например, ключ 
хеша или индекс массива, а затем с помощью этого идентификатора по- 
лучить доступ к требуемым значениям внутри блока или выражения. 


Ниже приводится еще один пример: из массива @х необходимо выбрать 
все элементы, значения которых больше, чем значения соответствую- 
щих им элементов в массиве бу. Здесь нам снова понадобится перемен- 
ная $ для индексации массива 0х: 


ту @6199ег_1п91сез = дгер { 
ЇР ($ > $#у ог $х[$ ] > $%у[% 1) { 
1; в да, выбрать 
} е1ѕе { 
0; # нет, не выбирать 
} 
} 0..$#х; 
ту @6199ег = @х[@ріодег_іпаісеѕ] 


В блоке оператора дгер переменная $_ будет приобретать значения от 0 
до наибольшего индекса в массиве @х. Если индекс элемента в массиве 
@х превысит размерность массива ву, мы автоматически выбираем его. 
В противном случае сравниваем соответствующие значения элементов 
двух массивов, выбирая индекс только в том случае, если результат 
сравнения соответствует заданному условию. 


Этот пример несколько избыточен. Вместо значений 0 и 1 мы могли бы 
просто возвращать результат логического выражения: 


ту @5199ег_1п91сез = дгер { 

$ > $#у ог $х[$% ] > $у[% 1; 
} 0..$#х; 
ту @6199ег = @х[@ріодег_іпаісеѕ] 


Можно поступить еще проще – опустить шаг создания промежуточно- 
го массива и сразу же возвращать отобранные значения элементов 
с помощью оператора пар: 


ту @6199ег = мар { 
ЇР ($ > $#у ог $х[$% ] > $%у[% 1) { 
$х[$_]; 
} е1ѕе { 
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23 
} 
} 0... $нх; 


Если элемент с заданным индексом подпадает под заданный критерий, 
возвращается значение этого элемента. В противном случае возвраща- 
ется пустой список. 


Выбор и модификация данных 
со сложной структурой 


Мы можем применить операторы дгер и пар для работы с более слож- 
ными структурами данных. Возьмем для примера список предметов 
экипировки из главы 5: 


ту %ргоуіѕіопѕ = ( 
‘Шкипер’ => [дм(голубая рубашка шляпа накидка солнечные очки крем) ], 
‘Профессор’ => [ам(солнечные очки фляжка _с_водой рулетка 
батарейки радиоприемник) ], 
‘Джиллиган’ => [ам(красная рубашка шляпа счастливые __носки 
фляжка _с_водой) ], 


); 


В этом случае выражение $ргоуіѕіопѕ{ "Профессор" } вернет ссылку на мас- 
сив с предметами экипировки, принадлежащими Профессору, а выра- 
жение $рго\у1$10п${ "Джиллиган" } [-1] – последний предмет, который взял 
с собой Джиллиган. 


Попробуем ответить на некоторые вопросы, касающиеся этих данных. 
Вопрос первый: кто взял с собой меньше пяти предметов? 


ту @раскеа 1іоһі = дгер @{ $рго\1$101${$_} } < 5, Кеуз %рго\1$101п8; 


В этом случае $_ содержит имя персонажа. Мы берем это имя, отыски- 
ваем ссылку на массив со списком предметов, разыменовываем ее в ска- 
лярном контексте, что дает нам количество предметов, и затем сравни- 
ваем его с числом 5. Неужели вы не знаете кто это — это же Джиллиган. 


Следующий вопрос чуть сложнее. Кто взял с собой фляжку с водой? 


пу @а11 ме? = дгер { 
пу @ітепѕ = @{ $ргоуіѕіоп={$_} }; 
дгер $_ ед ‘фляжка_с_водой’, @ітетѕ; 
} Кеуз %ргоуіѕіопѕ; 


Вновь начав со списка имен (Кеуз %ргоуіѕіопѕ), мы извлекаем все пред- 
меты экипировки, а затем, читая полученный список, с помощью внут- 
реннего оператора дгер подсчитываем количество элементов, содержа- 
щих строку ‘фляжка_с_водой’. Если это число равно 0, значит, фляжка 
у данного персонажа отсутствует, то есть этот результат будет интер- 
претироваться внешним оператором дгер как «ложь». Если число не 
равно нулю, значит, фляжка у текущего персонажа имеется, и резуль- 
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тат выражения будет интерпретироваться внешним оператором дгер 
как «истина». Теперь мы видим, что Шкипера будет мучить жажда, 
если кто-нибудь не придет ему на помощь. 


Кроме этого мы можем выполнить некоторые преобразования. Напри- 
мер, превратим этот хеш в список ссылок на массивы, каждый из ко- 
торых будет состоять из двух элементов. Первый элемент - это имя 
персонажа, а второй — ссылка на массив с предметами экипировки, 
принадлежащими данному персонажу: 


ту @гетарред 1151 = тар { 
[ $_ => $ргоуіѕіопѕ{$_} 1; 
} Кеуз %ргоуіѕіопѕ; 


Ключами в хеше %рго\1$101п$ являются имена персонажей. Для каждо- 
го персонажа создается список из двух элементов с именем и со ссыл- 
кой на массив, содержащий предметы экипировки. Этот список нахо- 
дится внутри конструктора анонимного массива, в результате для ка- 
ждого персонажа мы получаем ссылку на вновь созданный массив. 
Три персонажа на входе — три ссылки на выходе.! Теперь попробуем 
пойти другим путем. Превратим хеш в серию ссылок на массивы. Ка- 
ждый массив будет содержать имя персонажа и один из предметов 
экипировки, принадлежащий ему: 


ту @регзоп_1фет_ра1гз = мар { 
пу Фрегзоп = $; 
ту @ітетѕ = @{ $ргоуіѕіопѕ{$регѕоп} }; 
тар [Фрегзоп => $_], @ітетѕ; 

} Кеуз %ргоуіѕіопѕ; 


Да-да! Один оператор пар внутри другого! Внешний оператор пар отби- 
рает по одному персонажу за раз. Мы запоминаем его имя в перемен- 
ной $регзоп, а затем извлекаем из хеша список предметов. Внутренний 
оператор пар обходит список предметов и создает для каждого элемен- 
та ссылку на анонимный массив. В результате все анонимные массивы 
будут содержать имя персонажа и один из предметов его экипировки. 


Мы вынуждены были ввести промежуточную переменную $регѕоп для 
запоминания значения переменной $_ внешнего оператора тар, по- 
скольку мы не можем одновременно обращаться к временным пере- 
менным $_ внешнего и внутреннего операторов пар. 


Упражнения 


Ответы на эти вопросы вы найдете в приложении А в разделе «Ответы 
к главе 6б». 


1 Если бы мы опустили внутренние скобки, то получили бы на выходе спи- 
сок из шести элементов. Это имело бы смысл, если бы мы собирались соз- 
дать из списка еще один хеш. 
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Упражнение 1 [20 мин] 


Программа из упражнения 2 главы 5 при каждом запуске читает файл 
журнала целиком. Однако Профессор получает новый файл журнала 
каждый день и не желает хранить весь объем данных в одном большом 
файле, анализ которого с каждым днем будет занимать все больше 
и больше времени. 


Перепишите программу таким образом, чтобы информацию о трафи- 
ке, полученную ранее, она сохраняла в отдельном файле. Тогда Про- 
фессор сможет запускать программу ежедневно, передавая ей очеред- 
ную порцию данных, и получать обновленные сведения о трафике. 


Упражнение 2 [5 мин] 


Какие еще полезные функциональные возможности можно было бы 
добавить в программу? Просто подумайте об этом, не надо их реализо- 
вывать! 


Ссылки на подпрограммы 


До сих пор мы рассматривали ссылки на три основных типа данных 
языка Рег] — скаляры, массивы и хеши. Но есть возможность получать 
ссылки и на подпрограммы. 


Для чего это нужно? Скажем так: ссылки на массивы позволяют вы- 
полнять однотипные действия над разными массивами в разное время, 
а ссылки на подпрограммы позволяют из одного и того же программ- 
ного кода вызывать разные подпрограммы в разное время. Кроме того, 
ссылки позволяют конструировать очень сложные структуры данных. 
Ссылки на подпрограммы дают возможность сделать подпрограммы 
частью этих сложных структур данных. 


Иначе говоря, переменные или структуры данных являются хранили- 
щами информации в программе, а ссылки на подпрограммы аналогич- 
ным образом можно назвать хранилищами поведенческих реакций 
программы. Примеры из этого раздела помогут вам разобраться во 
всех этих хитросплетениях. 


Ссылки на именованные подпрограммы 


Между Шкипером и Джиллиганом состоялся следующий диалог: 


зи эк1ррег_дгеетз { 
ту Фрегзоп = $111; 
ргіпі “Шкипер: Эй, Фрегзоп!\п”; 


} 


ѕир 911119ап_огеетз { 
ту Фрегзоп = эВ РЕ; 
1! ($регѕоп ед “Шкипер”) { 
ргіпі "Джиллиган: Сэр, Фрегѕоп! \п" 
} е1ѕе { 


ргіпі “Джиллиган: Привет, $регѕоп! \п” 
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} 


эк1ррег_дгеет$("Джиллиган”); 
91111 9ап_дгеет$( "Шкипер”); 


В результате получилось следующее: 


Шкипер: Эй, Джиллиган! 
Джиллиган: Сэр, Шкипер! 


Вроде бы ничего необычного, однако обратите внимание: Джиллиган 
ведет себя по-разному в зависимости от того, кто к нему обратился, 
Шкипер или кто-либо другой. 


Теперь представьте, что в хижину входит Профессор и оба члена эки- 
пажа приветствуют его: 


эК1ррег_дгеет$ (‘Профессор’); 
0111ідап огееіѕ( ` Профессор’); 


В результате получится следующее: 


Шкипер: Эй, Профессор! 
Джиллиган: Привет, Профессор! 


Профессор должен как-то ответить на приветствие: 


ѕир ргоРеззог_дгеетз { 
ту Фрегзоп = ѕһі?ї; 
ргіпі "Профессор: Насколько я понимаю, вы Фрегзоп! \п"; 


} 


ргогеззог_дгеет$(‘Джиллиган’); 
ргогеззог_дгеет$( `Шкипер'); 


В результате ответ прозвучит следующим образом: 


Профессор: Насколько я понимаю, вы Джиллиган! 
Профессор: Насколько я понимаю, вы Шкипер! 


Гмм! Не очень удобно. Когда в хижину входит новый персонаж, пове- 
дение которого описывается отдельной именованной подпрограммой, 
нам придется точно указывать, какую подпрограмму следует вызвать. 
Конечно, это можно сделать, пусть и за счет большого объема про- 
граммного кода, сложного для сопровождения, но мы можем сущест- 
венно упростить задачу, лишь чуть-чуть добавив косвенности, как мы 
делали это при работе с массивами и хешами. 


Прежде всего, воспользуемся оператором взятия ссылки. Мы не будем 
давать дополнительных пояснений, поскольку это тот же обратный 
слэш, с которым вы уже знакомы: 


ту $гег То_дгеетег = \&$К1ррег_9дгеетз; 


Здесь мы взяли ссылку на подпрограмму ѕкіррег_одгееїѕ(). Обратите 
внимание на предшествующий символ амперсанда — его наличие со- 


Ссылки на именованные подпрограммы 93 


вершенно необходимо, так же как и отсутствие круглых скобок. Зна- 
чение ссылки сохраняется в переменной ф ге? їо огееїег, которая мо- 
жет использоваться везде, где допускается использование обычной 
скалярной величины. 


Есть только одна причина, чтобы вернуться к оригинальной подпро- 
грамме при разыменовании ссылки, – это вызвать ее. Разыменование 
ссылки на подпрограмму напоминает процедуру разыменования лю- 
бых других ссылок. Для начала рассмотрим способ, которым мы вос- 
пользовались бы, ничего не зная о ссылках (включая необязательный 
символ амперсанда): 


& ѕкіррег _огееїѕ ( ‘Джиллиган’) 


Теперь заменим имя подпрограммы на имя ссылки, окруженное фи- 
гурными скобками: 


& { фгег то дгеетег } ( ‘Джиллиган’) 


Эта конструкция вызывает подпрограмму, на которую в настоящий 
момент ссылается $ геї іо дгееіег, и передает ей единственный аргу- 
мент: имя Джиллиган. 


Однако такая форма записи выглядит несколько уродливо, вам не ка- 
жется? К счастью, здесь применимы те же правила упрощения, что 
и для обычных ссылок. Если в фигурных скобках стоит обычная ска- 
лярная переменная, их можно просто опустить: 


& фге? +о _одгеетег ( ‘Джиллиган’ ) 
Можно даже воспользоваться оператором стрелки: 
фге? +о дгееїтег -> ( ‘Джиллиган’) 


Последняя форма записи особенно удобна, когда ссылка находится 
внутри большой структуры данных, в чем вы вскоре сможете убедить- 
ся. 


Чтобы Джиллиган и Шкипер смогли поприветствовать Профессора, 
нам достаточно вызвать все подпрограммы в цикле: 


Тог ту $о9гееї (\&5кіррег огееїѕ, \&91111дап_дгее{з$) { 
фогееї->(` Профессор’); 
} 


В первую очередь здесь создается список из двух элементов, каждый 
из которых является ссылкой на подпрограмму. После этого каждая 
ссылка разыменовывается, в результате чего происходит вызов той 
или иной подпрограммы, которым в виде аргумента передается строка 
Профессор. 


Мы уже видели ссылки на подпрограммы в виде скалярной перемен- 
ной и в виде элемента списка. А возможно ли поместить ссылку на 
подпрограмму в сложную структуру данных? Разумеется. Попробуем 
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создать таблицу, в которой определим соответствие между именами 
персонажей и их реакцией на приветствие других людей, а затем пере- 
пишем предыдущий пример, основываясь на этой таблице: 


зиб эк1ррег_дгеетз { 
ту Фрегзоп = $11; 
ргіпі “Шкипер: Эй, Фрегзоп!\п” 


ѕир 911119ап_9дгеетз { 
ту Фрегзоп = эВ РЕ; 
1+ (Фрегзоп ед ‘Шкипер’) { 
ргіпі "Джиллиган: Сэр, Фрегѕоп! \п" 
} е1ѕе { 
ргіпі “Джиллиган: Привет, $регѕоп! \п” 


зи ргоҒеѕѕог дгееїѕ { 
ту Фрегзоп = эВ РЕ; 
ргіпі "Профессор: Насколько я понимаю, вы Фрегзоп! \п” 


ту %дгеетз = ( 

6111ідап => \&91111д9ап_огеет$, 
Ѕкіррег => \&$К1ррег_дгеет$, 
Ргоғеѕѕог => \&ргоғеѕѕог огееїѕ, 


); 


Тог ту $регѕоп (ам($кіррег 611119ап)) { 
$дгеетз {Фрегзоп} -> (‘Профессор’); 
} 


Обратите внимание: в переменной $Фрегзоп находится имя персонажа, 
по которому производится поиск требуемой ссылки на подпрограмму 
в хеше. После того как ссылка будет получена, мы разыменовываем ее 
и передаем подпрограмме имя персонажа, которого хотим поприветст- 
вовать. В результате мы получаем корректное поведение: 


Шкипер: Эй, Профессор! 
Джиллиган: Привет, Профессор 


Теперь попробуем реализовать ситуацию, когда все присутствующие 
приветствуют друг друга: 


зи эк1ррег_дгеетз { 
ту Фрегзоп = $Н1Е; 
ргіпі “Шкипер: Эй, Фрегзоп!\п”; 


} 


ѕир 911119ап_огеетз { 
ту Фрегзоп = эВ1 РЕ; 
і? (Фрегзоп ед ‘Шкипер’) { 
ргіпі “"Джиллиган: Сэр, Фрегзоп!\п”; 
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} е1ѕе { 
ргіпі “Джиллиган: Привет, $регѕоп! \п” 


} 


зиб ргоҒеѕѕог_дгееїѕ { 
ту Фрегзоп = ѕһіғ; 
ргіпі "Профессор: Насколько я понимаю, вы Фрегзоп! \п” 


} 


ту %огееїѕ = ( 
611119ап => \&911119ап_дгеетз, 
Ѕкіррег => \&Ккіррег дгееїѕ 
Ргоғеѕѕог => \&ргоғеѕѕог_дгееїѕ 


); 


ту @еуегуопе = ѕогї Кеуз %огееїѕ; 
Тог ту Фдгеефег (@еуегуопе) { 
Тог му $дгеетед (@еуегуопе) { 
Фдгеетз {Фогеетег} -> (Фдгеетеа) 
ип1еѕѕ $огееіег ед $огеефед; # не стоит приветствовать себя самого 


} 
Результат работы этой программы выглядит следующим образом: 


Джиллиган: Привет, Профессор 

Джиллиган: Сэр, Шкипер 

Профессор: Насколько я понимаю, вы Джиллиган 
Профессор: Насколько я понимаю, вы Шкипер 
Шкипер: Эй, Джиллиган! 

Шкипер: Эй, Профессор 


Что-то слишком сложно. Давайте позволим им входить в хижину по 
одному: 


зиб зкіррег_одгееіѕ { 
ту Фрегзоп = $11; 
ргіпі “Шкипер: Эй, Фрегзоп!\п” 


ѕир 911119ап_9дгеетз { 
ту Фрегзоп = эВ РЕ; 
11 (Фрегзоп ед ‘Шкипер’) { 
ргіпі “"Джиллиган: Сэр, Фрегзоп! \п" 
} е1ѕе { 
ргіпі “Джиллиган: Привет, $регѕоп! \п” 


зиб ргоҒеѕѕог_дгееїѕ { 
ту Фрегзоп = эВ РЕ; 
ргіпі "Профессор: Насколько я понимаю, вы Фрегзоп! \п” 
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ту %огееїѕ = ( 
«Джиллиган» => \&911119ап_дгеетз, 
«Шкипер» => \&зк1ррег_дгеетз, 
«Профессор» => \&ргоРеззог_дгеет$, 
); 


пу @гоот; # сначала в хижине никого нет 
Тог му Фрегзоп (ам(Джиллиган Шкипер Профессор)) { 
ргіп “\п”; 
ргіпі "В хижину входит Фрегзоп. \п”; 
Ғог ту $гоот_регзоп (@гоот) { 
$дгеет $ {Фрегзоп} ->($гоот регѕоп); # приветствует 
$дгеет $ {Фгоот_регзоп}->($регзоп); # получает ответ 
} 
риѕћ @гоот, Фрегзоп; # входит и устраивается поудобнее 


} 
Так начинается обычный день на тропическом острове: 
В хижину входит Джиллиган. 


В хижину входит Шкипер. 
кипер: Эй, Джиллиган! 
Джиллиган: Сэр, Шкипер! 


В хижину входит Профессор. 

Профессор: Насколько я понимаю, вы Джиллиган! 
Джиллиган: Привет, Профессор! 

Профессор: Насколько я понимаю, вы Шкипер! 
кипер: Эй, Профессор! 


Анонимные подпрограммы 


В последнем примере мы нигде явно! не обращались к таким подпро- 
граммам, как ргоғеѕѕог_0гееїѕ() или зК1ррег_дгее{$(). Мы вызывали их 
косвенно — через ссылки на подпрограммы. Однако нам пришлось 
приложить определенные усилия, чтобы придумать имена подпро- 
граммам и инициализировать структуру данных. Но мы могли бы соз- 
дать анонимные подпрограммы точно так же, как анонимные массивы 
или хеши! 


Добавим в компанию обитателей острова еще один персонаж, Джинд- 
жер, и определим ее поведение с помощью анонимной подпрограммы: 


ту $91пдег = зи6 { 

ту Фрегзоп = $Н1Е; 

ргіпі "Джинджер: (томным голосом) 0! Салют, Фрегзоп! \п” 
| 
$91пдег->("Шкипер’); 


1 По имени. – Примеч. науч. ред. 
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Анонимная подпрограмма объявляется так же, как и обычная, но меж- 
ду ключевым словом ѕир и открывающей скобкой блока программного 
кода нет имени. Кроме того, такая форма записи расценивается как 
часть выражения, поэтому объявление анонимной подпрограммы 
должно завершаться точкой с запятой или иным разделителем выра- 
жений, как и в большинстве случаев. 


ѕир { ... тело подпрограммы ... }; 


Значением переменной $0іпдег является ссылка на подпрограмму, как 
если бы мы объявили обычную подпрограмму, а потом взяли бы ссылку 
на нее. Дойдя до последнего выражения, мы увидим такое приветствие: 


Джинджер: (томным голосом) 0! Салют, Шкипер 


Сейчас мы сохранили ссылку на подпрограмму в скалярной перемен- 
ной, но мы можем поместить объявления ѕир { ... } прямо в хеш: 


ту %9гееїѕ = ( 


“Шкипер’ => зи6 { 

ту Фрегзоп = ѕһі?ї; 

ргіп “Шкипер: Эй, Фрегзоп! \п” 
} 


‘Джиллиган’ => ѕир { 
ту $регѕоп = эВ РЕ; 
1! (Фрегзоп өд ‘Шкипер’) { 
рг1пЕ “Джиллиган: Сэр, Фрегзоп!\п” 
} е1ѕе { 
ргіпі "Джиллиган:; Привет, $регзоп!\п” 


}, 


‘Профессор’ => ѕир { 
ту $регѕоп = эВ РЕ; 
ргіпі "Профессор: Насколько я понимаю, вы Фрегзоп! \п” 


}, 


‘Джинджер’ => ѕир { 
ту Фрегзоп = ѕһіғї; 
ргіпі "Джинджер: (томным голосом) 0! Салют, Фрегзоп! \п” 
}, 
): 


ту @гоот; # сначала в хижине никого нет 
Тог ту $регѕоп (ам(Джиллиган Шкипер Профессор Джинджер)) { 
ргіп “\п” 
ргіпі "В комнату входит Фрегзоп. \п” 
Тог ту $гоот регѕоп (@гоот) { 
$дгеет $ {Фрегзоп} ->($гоот_регзоп); # приветствует 
$огеет$ {$гоот_регзоп}->(Фрегзоп); # получает ответ 


} 


риѕћ @гоо 


Фрегзоп; # входит и устраивается поудобнее 
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Обратите внимание, насколько проще стал выглядеть программный 
код. Объявления подпрограмм находятся прямо в структуре данных. 
Результат работы программы вполне предсказуем: 


В комнату входит Джиллиган. 


В комнату входит Шкипер. 
кипер: Эй, Джиллиган! 
Джиллиган: Сэр, Шкипер! 


В комнату входит Профессор. 

Профессор: Насколько я понимаю, вы Джиллиган! 

Джилиган: Привет, Профессор! 
е 
е 


Профессор: Насколько я понимаю, вы Шкипер! 
р: Эй, Профессор! 


КИП 


В комнату входит Джинджер. 

Джинджер: (томным голосом) 0 

Джилиган: Привет, Джинджер! 
Д ( 
е 


Здравствуйте, Джиллиган! 


Джин томным голосом) 0 
Шкипер: Эй, Джинджер! 
Джинджер: (томным голосом) 0! Здравствуйте, Профессор! 
Профессор: Насколько я понимаю, вы Джинджер! 


Здравствуйте, Шкипер! 


Чтобы добавить еще один персонаж, достаточно вставить в хеш еще 
одно объявление подпрограммы, определяющей его поведение, и зане- 
сти имя персонажа в список лиц, входящих в хижину. Такую масшта- 
бируемость мы получили потому, что определили поведенческие реак- 
ции персонажей как обычные данные, которые можно обойти и вы- 
брать в цикле благодаря ссылкам на подпрограммы. 


Подпрограммы обратного вызова 


Очень часто ссылки на подпрограммы служат для организации обрат- 
ных вызовов. Подпрограмма обратного вызова определяет, что необхо- 
димо сделать, когда программа достигает определенной точки в алго- 
ритме. 


Например, модуль Ее: :Е1п4 экспортирует подпрограмму ѓіпі, кото- 
рая выполняет обход дерева каталогов способом, не зависящим от 
платформы. В простейшем случае подпрограмме ѓіпа передаются два 
аргумента: начальный каталог и описание того, «что следует сделать» 
с именем каждого файла или каталога, которые будут обнаружены 
внутри заданного. В данном случае под «что сделать» подразумевается 
ссылка на подпрограмму: 


иѕе Ее: : Ріпа; 
зиб мћаї То до { 
ргіпё "Найден файл или каталог $Е11е: : Ріпа: : пате\п” 


} 


ту @ѕ+ъагїіпо_дігесіогіеѕ = ам(. ); 


Ғіпа(\&мһат То до, @ѕагііпо ді гесіогіеѕ); 
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В этом примере поиск начинается от текущего каталога (.), в процессе 
которого отыскиваются все находящиеся внутри него файлы и подка- 
талоги. Для каждого найденного элемента вызывается подпрограмма 
мһаї_о_00(), которой через глобальные переменные передаются не- 
сколько аргументов. В данном случае в переменной Ее: :Е1па: : пате 
содержится полный путь к найденному файлу или каталогу (начиная 
от исходного каталога). 


В этом примере мы передали подпрограмме ѓіпі в качестве аргументов 
список каталогов поиска и реакцию на найденный элемент. 


Не имеет большого смысла придумывать название для подпрограммы, 
которая вызывается лишь в одном месте, поэтому перепишем преды- 
дущий пример, оставив подпрограмму анонимной: 


иѕе Рі1е: : Ріпа; 
ту @ѕ+ъагїіпо_дігесіогіеѕ = адм(. ); 


Ріпа( 
ѕир { 
ргіпі "Найден файл или каталог $Е11е: : Ріпа: : пате\п”; 
}, 
@ѕтагїіпо_дігестогіеѕ, 


); 


Замыкания 


Модуль Ее: : Ріпа позволяет получать дополнительные сведения о фай- 
лах, например их размеры. Для удобства разработки подпрограмм об- 
ратного вызова имя элемента, найденного в текущем рабочем катало- 
ге, содержится в переменной $_. 


Вы могли заметить, что в предыдущем примере мы извлекали имя эле- 
мента из переменной $Рі1е:: Ріпа: : папе. Как же определить, где нахо- 
дится настоящее имя элемента: в $_ или в $Рі1е: : Е1па: : папе? В перемен- 
ной $Ғі1е: : Ріпа: : пате содержится полное имя найденного элемента от- 
носительно начального каталога поиска. Когда производится обраще- 
ние к подпрограмме обратного вызова, рабочим каталогом считается 
тот, в котором обнаружен очередной элемент. Предположим, что тре- 
буется отыскать файлы в текущем рабочем каталоге, поэтому в качест- 
ве начального каталога мы задаем его имя (". "). Если в момент вызова 
подпрограммы 1119 текущим был каталог /иѕг, она начнет поиск фай- 
лов в этом и всех вложенных подкаталогах этого каталога. Когда 1114 
найдет файл /иѕг/ріп/регі, текущим рабочим каталогом (в момент 
обращения к подпрограмме обратного вызова) будет /иѕг/біп. В этом 
случае в переменной $_ будет храниться имя рег1, а в переменной 
$Е11е: :Е1п4::пате — ./б1п/рег1, то есть путь к файлу относительно на- 
чального каталога поиска. 


Все это означает, что проверки, выполняемые над файлом, такие как 
-5, автоматически относятся к только что найденному элементу. Это 
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удобно, однако имя текущего каталога внутри подпрограммы обратно- 
го вызова отличается от начального каталога поиска. 


Представьте, что нам надо с помощью модуля Ее: :Е1пд определить 
суммарный размер всех файлов, которые будут найдены. Процедура 
обратного вызова не может принимать входных аргументов, а вызы- 
вающая сторона — значение, возвращаемое подпрограммой. Но это не 
имеет никакого значения. После разыменования ссылки подпрограм- 
ма получает доступ ко всем видимым переменным. Например: 


иѕе Ее: : Ріпа; 


ту фіоіа1 ѕіхе = 0; 
Ғіпа(ѕир { $+оїта1 5176 += -5 іЁ -# }, '.'’); 
ргіпі фіоа1_ѕіғе, “\п”; 


Как и прежде, мы вызываем подпрограмму ѓіпі и передаем ей два ар- 
гумента: ссылку на анонимную подпрограмму и имя начального ката- 
лога. При обнаружении файлов внутри этого каталога (и всех вложен- 
ных подкаталогах) она вызывает анонимную подпрограмму. 


Обратите внимание: подпрограмма обращается к переменной $їоїа1_ 
517е. Мы объявили эту переменную за пределами области видимости 
подпрограммы 1114, однако она доступна в подпрограмме обратного 
вызова. Таким образом, даже при том, что подпрограмма 1110 (которая 
не имеет прямого доступа к переменной $101а1_517е) обращается к под- 
программе обратного вызова, последняя способна обращаться к пере- 
менной и изменять ее значение. 


Подобные подпрограммы, которые имеют доступ ко всем переменным, 
существовавшим на момент объявления подпрограммы, называются 
замыканиями (термин заимствован из математики). В терминах язы- 
ка Рег| замыкание — это подпрограмма, которая может обращаться 
к лексическим переменным, расположенным вне области видимости 
данной подпрограммы. 


Кроме того, возможность доступа к переменной изнутри замыкания 
гарантирует, что эта переменная будет существовать, по крайней мере 
до тех пор, пока существует ссылка на подпрограмму-замыкание. По- 
пробуем подсчитать количество файлов:! 


иѕе Ее: : Ріпа; 


ту $са11раск; 
{ 
ту фсоџпї = 0; 


1 На первый взгляд в этом отрывке имеется лишняя точка с запятой - в конце 
строки, где выполняется присваивание переменной $са110аск, не так ли? 
Постарайтесь запомнить: конструкция $16}{... } – это выражение. Значение 
этого выражения (ссылка на подпрограмму) присваивается переменной 
$са11раск, поэтому в конце выражения должна стоять точка с запятой. 
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фса11раск = ѕир { ргіпі ++фсоипі, “: $Р11е: : Ріпа: : паме\п” }; 


} 
Ғіпа(фса11раск, `.'); 


Здесь объявляется переменная, которая будет хранить ссылку на под- 
программу обратного вызова. Эту переменную нельзя объявлять в пре- 
делах блока кода, потому что тогда Рег1 уничтожит ее после выхода из 
блока. Затем переменная $соџпї инициализируется значением 0. После 
этого следует объявление анонимной подпрограммы, ссылка на кото- 
рую записывается в переменную $са11раск. Данная подпрограмма 
представляет собой замыкание, поскольку она обращается к лексиче- 
ской переменной фсоипі. 


По выходе из блока кода переменная $соип{ исчезает из области види- 
мости. Однако, поскольку к ней производится обращение из подпро- 
граммы, ссылка на которую продолжает оставаться в переменной 
фса11раск, переменная $соџпі продолжает существовать в памяти как 
анонимная скалярная переменная.! При каждом вызове подпрограм- 
ма увеличивает значение переменной $соџпі, получая в результате чис- 
ла 1, 2, Зи так далее. 


Подпрограмма как возвращаемое значение 
другой подпрограммы 


Блок кода прекрасно подходит для объявления подпрограммы обрат- 
ного вызова, но гораздо удобнее иметь подпрограмму, которая возвра- 
щала бы ссылку на другую подпрограмму! 


иѕе Ее: : Ріпа; 


зиб сгеате_Ғіпа_са11браск_ һа соипіѕ { 
ту фсоџпї = 0; 
гефигп ѕир { ргіпї ++$соџпї, ": $Е11е: :Е1па: : пате\п” }; 


} 


ту $са1П1раск = сгеа+е Ріпа са11раск іһаі соџпіѕ( ); 
Ғіпа(фса11раск, `.`); 


Здесь мы имеем практически то же, что и раньше, только оформили все 
несколько иначе. Подпрограмма сгеаїе_ Ріпа са11раск_іћаї соипіѕ() ини- 
циализирует лексическую переменную $соип{ значением 0 и возвраща- 
ет ссылку на анонимную подпрограмму – тоже замыкание, поскольку 


1 Если точнее, то объявление замыкания увеличивает счетчик ссылок, как 
если бы на эту переменную явно была взята еще одна ссылка. Как раз перед 
концом блока счетчик ссылок на переменную $соип{ имеет значение 2, а по 
завершении блока счетчик ссылок приобретает значение 1. Больше ниот- 
куда в программе нельзя обратиться к переменной $соип\, но она будет хра- 
ниться в памяти до тех пор, пока будет существовать ссылка на подпро- 
грамму в переменной $са11раск или где-либо еще. 
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ей доступна переменная $соџпі. Эта переменная будет существовать в па- 
мяти даже после выхода из подпрограммы сгеаїе Ріпа са11раск їћаї со- 
ипїѕ() до тех пор, пока не исчезнет ссылка на анонимную подпрограмму. 


При повторном обращении к той же подпрограмме обратного вызова 
переменная сохранит свое прежнее значение, поскольку переменная 
инициализируется в подпрограмме сгеаїе_Ғіпа_са11раск_ їһаї_соипіѕ(), 
а не ванонимной подпрограмме: 


иѕе Рі1е: : Ріпа; 


зиб сгеате_Ғіпа_са11браск_+ћһа+ соипіѕ { 
у фсоџпі = 0; 
гефигп зиб { ргіпі ++фсоџпі, ”: $Рі1е: : Ріпа: : пате\п” }; 


} 


ту Фса11баск = сгеа+е Ғіпа са11юраск іһаі соипіѕ( ); 
ргіпі “мой каталог біп: \п”; 

#іпа(Фса11раск, '61п’); 

ргіпі “мой каталог 116:\п”; 

Ғіпа(Фса116баск, '1ір'’); 


( 


Данный пример выведет последовательность чисел, начиная с 1, для 
всех файлов, которые будут найдены в каталоге ріп, и затем продол- 
жит эту последовательность, когда поиск будет производиться уже 
в каталоге 115. В обоих случаях задействуется одна и та же перемен- 
ная, $соип{. Но если подпрограмма сгеаїе_Ғіпа_са11раск_ їћһаї_соџпї$() 
будет вызвана дважды, то мы получим две разных переменных $соџпії: 


иѕе Ее: : Ріпа; 


зиб сгеате_Ғіпа_са11браск_ һа соипіѕ { 
ту фсоџпї = 0; 
гефигп ѕир { ргіпї ++$соџпї, ": $Е11е: :Е1па: : пате\п” }; 


} 


ту Фса11раскі = сгеате Ғіпа са11раск Ва соипіѕ( ); 
ту Фса11раск2 = сгеаїе_?іпа_са11браск_+һаї_соипіѕ( ) 
ргіпі “мой каталог біп: \п”; 

#іпа(Фса11раскі, '61п’); 

ргіпі “мой каталог 116:\п”; 

#іпа(Фса11раск2, '11р'); 


В этом случае у нас появятся две разные переменные $соџпї, каждая из 
которых будет доступна только из своей подпрограммы обратного вы- 
зова. 


А как получить общее число файлов, подсчитанное подпрограммой об- 
ратного вызова? Ранее мы делали это с помощью глобальной перемен- 
ной $їоїа1 _$17е. Если объявить переменную $101а1_517е в подпрограм- 
ме, которая возвращает ссылку на подпрограмму обратного вызова, 
мы не получим доступа к этой переменной. Но мы можем позволить 
себе пойти на небольшую хитрость. Мы можем определить, что в слу- 
чае отсутствия входных аргументов подпрограмма обратного вызова 
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не должна ничего возвращать, но если она получает входной аргумент, 
то должна возвратить суммарный размер: 


иѕе Ее: : Ріпа; 


ѕир сгеате_Ғіпа са11раск_ һа ѕитѕ_їһе 51ге { 
ту $То1а1_$17е = 0; 
гефигп ѕир { 
ЇР (@ ) { # это наш фиктивный запрос 
гетигп $о+а1 ѕіге; 
} е15е { на это вызов из Е11е: : Ріпа: 
феота] 5126 += -$ ії? -#; 


}; 
} 
ту Фса11браск = сгеа+е Ріпа са11раск їһаї ѕитѕ ће _ѕіге( ); 
Ғіпа(Фса116баск, ‘'61п’); 
пу фіо+а1 ѕіхе = $са11раск->('дитту`); # передача фиктивного аргумента, 
# чтобы получить суммарный размер 
ргіпЕ “суммарный размер файлов в каталоге біп = $1о1а1_$17е\п”; 


Определение различной реакции на наличие и отсутствие входного ар- 
гумента - это далеко не универсальное решение. К счастью, мы можем 
вернуть более чем одну ссылку на подпрограмму из сгеаїе_#іпа_са11- 
раск іһаї соипїѕ(): 


иѕе Рі1е: : Ріпа; 


ѕир сгеате_Ғіпа_са11раскѕ їћаї ѕит їһе_51іғе { 
ту Фіоіа1 ѕіхе = 0; 
геъигп(ѕир { $+оа1 ѕіге += -$ і? -Р }, зир { гефигп фіоїа1 $17е }); 


} 


ту ($соип ет, $деі гези1{$) = сгеаїе Ғіпа са11раскѕ їһаї ѕит їһе ѕіхе( ); 
Ғіпа(Фсоипї ет, ріп’); 

ту Фіо+а1 ѕіхе = &$деЕ гөѕи115( ); 

ргіпЕ ” суммарный размер файлов в каталоге ріп = $101а1_$17е\п”; 


Поскольку обе ссылки на подпрограммы были созданы в одной и той 
же области видимости, они обе имеют доступ к той же самой перемен- 
ной $їоіа1 ѕіхе. Даже при том что перед вызовом любой из этих под- 
программ переменная будет находиться за пределами области видимо- 
сти, тем не менее обе подпрограммы будут иметь доступ к одной и той 
же переменной и могут быть использованы для получения результатов 
вычислений. 


Возврат двух ссылок на подпрограммы не приводит к их вызову. Ссыл- 
ки - это лишь данные, идентифицирующие точки вызова. Они будут 
исполняться, только когда вызываются как подпрограммы обратного 
вызова или в результате разыменования ссылок. 


А что произойдет, если эта новая подпрограмма будет вызвана более 
чем один раз? 
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иѕе Ее: : Ріпа; 


зиб сгеате_Ғіпа_са11раскѕ їћаї ѕит їһе_51іғе { 
ту $Еота1 ѕіхе = 0; 
гефигп(зи6 { $+оа1 ѕіле += -$ і? -Р }, зир { гефигп фіоїа1 $17е }); 


} 


## создание подпрограмм 

ту %$и0$; 

Ғогеасһ ту $аіг (ам(біп 116 тап)) { 
ту (%са11браск, Фдетфег) = сгеаіе Ріпа са11раскѕ іћаї ѕит һе ѕіге( ); 
$$и6${$91г} {САШ ВАСК} = $са11раск; 
$$и6${$91г} {СЕТТЕВ} = $деїтег; 

} 


## собрать данные 
Тог (Кеуѕ %5005) { 
119($$и63{$_} {САЦ ВАСК), $_); 


— 


} 


## вывести результаты 

Тог (ѕогі Кеуз %$и6$) { 

ту $зит = $$и6${$_} {СЕТТЕН}->( ); 

рг1пЕ “суммарный размер файлов в каталоге $_ = $зит Бутез\п”: 


} 


В разделе, где создаются подпрограммы, мы создали три экземпляра 
пар подпрограмм обратного вызова и получения результатов. Каждой 
подпрограмме обратного вызова соответствует подпрограмма получе- 
ния результата. В следующем разделе выполняется сбор данных, здесь 
подпрограмма ѓіпі вызывается три раза, причем каждый раз с другой 
ссылкой на подпрограмму обратного вызова. Благодаря этому резуль- 
таты вычислений всякий раз записываются в свою переменную $+о0- 
{а1_$17е. В последнем разделе с помощью подпрограмм чтения произ- 
водится вывод полученных результатов. 


Каждая из шести подпрограмм (и каждая из трех переменных $їо- 
{а1_ $17е) имеет свой счетчик ссылок. Если мы попытаемся изменить 
содержимое хеша %5и60$ или он выйдет из области видимости, это при- 
ведет к уменьшению счетчиков ссылок и утилизации занимаемой па- 
мяти. (Если эти элементы в свою очередь так же ссылаются на какие- 
либо другие данные, то их счетчики ссылок так же будут уменьшены 
соответствующим образом.) 


Использование переменных замыканий 
для ввода данных 


В предыдущих примерах было показано, как можно изменять пере- 
менные замыканий, но эти же переменные могут служить для переда- 
чи входной информации в замыкания. Попробуем написать подпро- 
грамму, создающую подпрограмму обратного вызова для работы с мо- 
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дулем Ее: : Е1па, которая в свою очередь будет выводить имена файлов 
с размером, превышающим некое значение: 


иѕе Ее: : Ріпа; 


зиб ргіпї рідодег їһап { 
ту фтіпітит 5126 = $1111; 
гетигп зиб { ргіпі "ФЕ11е:: Ріпа: : пате\п” і? -Р апа -$ >= $тіпітит ѕіхе }; 


} 


ту Фріддег їһап 1024 = ргіпі ріодег +ћһап(1024); 
Ғіпа($ріддег +һап_ 1024, біп’); 


Здесь мы передаем подпрограмме ргіпї_ріддег_ їћһап число 1024, которое 
затем переписывается в лексическую переменную $т1п1тит_$17е. К этой 
переменной мы обращаемся из подпрограммы, на которую ссылается 
возвращаемое значение подпрограммы ргіпі _ріддег їһап, поэтому она 
становится переменной замыкания, значение которой сохраняется на 
протяжении всего жизненного цикла ссылки на подпрограмму. Как 
и прежде, каждый новый вызов подпрограммы ргіпі_ріддег_ їһап при- 
водит к созданию нового экземпляра переменной $фи1п1тит_$17е, свя- 
занной с соответствующей ей ссылкой на подпрограмму. 


Замыкания «замыкаются» только на лексических переменных, т.к. 
лексические переменные рано или поздно выйдут из области видимо- 
сти. Поскольку глобальные переменные никогда не выйдут из области 
видимости, замыкания никогда не смогут замкнуться на них. Все под- 
программы всегда будут обращаться к одному и тому же экземпляру 
глобальной переменной. 


Переменные замыканий как статические 
локальные переменные 


Чтобы стать замыканием, подпрограмма не обязательно должна быть 
анонимной. Если именованная подпрограмма обращается к лексиче- 
ской переменной и эта переменная выйдет за пределы области видимо- 
сти, подпрограмма сохранит возможность доступа ко всем своим лек- 
сическим переменным точно так же, как это происходит в случае ано- 
нимных подпрограмм. Рассмотрим две подпрограммы, которые ведут 
подсчет кокосовых орехов, собранных Джиллиганом: 


{ 
ту Фсоџпї; 
ѕир соипЕ_опе { ++$соип{ } 
зиб соипї зо Ғаг { гефигп ФсоипЕ } 


} 


Если поместить этот отрывок в начало программы, то в результате бу- 
дет создана переменная $соип{ с областью видимости, ограниченной 
блоком кода, а две подпрограммы, которые ссылаются на эту перемен- 
ную, превратятся в замыкания. Однако подпрограммы имеют опреде- 
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ленные имена, поэтому они продолжат свое существование и за преде- 
лами блока (как и любые другие именованные подпрограммы). А раз 
подпрограммы сохраняют возможность доступа к переменной даже за 
пределами области ее видимости, то они превращаются в замыкания 
и могут продолжать обращаться к переменной на протяжении всего 
жизненного цикла программы. 


Убедиться в справедливости этого утверждения можно, выполнив не- 
сколько обращений к подпрограммам: 


соип{_опе( ); 
соип{_опе( ); 
соип{_опе( ); 
ргіпі ‘мы собрали ‘, соџпі ѕо_Ғаг( ), “ орехов! \п”; 


Переменная $соџпї сохраняет свое значение между вызовами подпро- 
грамм соип{_опе() или соип{_з0_Таг(), и никакая другая часть програм- 
мы не может получить доступ к этой переменной. 


В языке С такие переменные известны как статические локальные 
переменные, то есть переменные, которые доступны только узкому 
кругу функций программы! и сохраняют свое значение на протяже- 
нии всего времени жизни программы между вызовами функций. 


А что если нам потребуется вести счет в обратном порядке? Это можно 
сделать примерно так: 


{ 
ту Фсоџптаомп = 10; 
зиб соипт_Чомп { фсоипёаомп-- } 
зиб соипї гетаіпіпо { $соџпїіаомп } 


} 


соипі_аомп( ); 
соипі_аомп( ); 
соипі_аомп( ); 
ргіпі ‘нам осталось собрать ', соџпі гетаіпіпо( ), “ орехов! \п"; 


Данный прием эффективен только в том случае, если этот блок будет 
размещаться где-нибудь ближе к началу программы, то есть до того, 
как будет вызвана функция соџпї_йомп() или соипі_гетаіпіпо(). Дога- 
дываетесь почему? 


Прием не сработает, если блок будет размещаться после вызова любой 
из функций. Причина проста: первая строка этого блока функцио- 
нально делится на две части: 


ту Фсоиптдомп = 10; 


1 Если быть совсем точными, то статические локальные переменные С/С++ 
доступны внутри только одной функции, в которой они определены; пере- 
менные, доступные узкому кругу функций, — это статические перемен- 
ные файла; и те и другие обладают особенностями, на которых акцентиру- 
ет внимание автор. — Примеч. науч. ред. 
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Первая часть - это объявление лексической переменной $соипійомп. Эта 
часть обрабатывается на этапе компиляции. Вторая часть — это при- 
своение переменной значения 10. Эта часть обрабатывается уже на эта- 
пе исполнения. Пока вторая часть строки не пройдет обработку на этапе 
исполнения, переменная $соипта0\п будет иметь значение по умолча- 
нию, а именно ипдег. 


В качестве одного из решений этой проблемы можно порекомендовать 
преобразовать блок со статической переменной в блок ВЕСТА: 


ВЕСІМ { 
ту Фсоџпёаомп = 10; 
зиб соипт_Чомп { фсоипёаомп-- } 
зиб соипї гетаіпіпо { $соџпїіаомп } 


} 


Ключевое слово ВЕСІМ сообщает компилятору Ре!1|, что после компиля- 
ции блока необходимо на время приостановить компиляцию програм- 
мы и исполнить этот блок. Если в процессе исполнения блока не воз- 
никло фатальной ошибки, компиляция программы будет продолжена 
со строки, стоящей сразу за блоком. Кроме того, вслед за этим сам 
блок удаляется из программы, благодаря чему гарантируется, что он 
будет исполнен всего один раз, даже если синтаксически он находится 
внутри цикла или подпрограммы. 


Упражнения 


Ответы на эти вопросы вы найдете в приложении А в разделе «Ответы 
к главе 7». 


Упражнение 1 [50 мин] 


Профессор обновил некоторые файлы в понедельник днем и, к несча- 
стью, забыл, какие именно. Это случается с ним постоянно. Он хочет, 
чтобы вы написали подпрограмму с именем даїћег_тііпе_реімееп, кото- 
рой можно было бы передать начальную и конечную дату и время вре- 
менного интервала и которая возвращала бы две ссылки на подпро- 
граммы. Первая из них должна с помощью модуля Ее: :Е1п4 отыскать 
все файлы, которые были изменены в течение указанного интервала, 
а вторая должна возвращать список найденных файлов. 


Ниже приводится пример программного кода, который вы можете оп- 
робовать. Он отыскивает только те файлы, которые были изменены 
в последний понедельник, хотя его нетрудно переориентировать на 
любой другой день недели. (Весь этот текст не надо вводить вручную, 
поскольку программа в виде файла с именем ехб-1.р1х входит в состав 
архива с примерами к книге, который можно загрузить с веб-сайта из- 
дательства О’ВеШу.) 


Подсказка: время последнего изменения файла (пііпе) можно опреде- 
лить, например, так: 
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ту $Е1тезТатр 


Поскольку это часть массива, круглые скобки обязательны. Не забы- 
вайте, что имя рабочего каталога, внутри которого вызывается под- 
программа обратного вызова, не обязательно будет совпадать с именем 


= (зфаё $Е1е пате)[9] 


начального каталога, которое было передано подпрограмме 1119. 


у @ѕтагїіпо_ 


у $ѕесопаѕ р 
му($зес, Фтіп 


у $3тагЕ = ї 
мһі1е ($40м 

# Назад н 
фетагі -= 


иѕе Ее: : Ріпа; 
иѕе Тіме: : Госа 


ту фъагдеї дом = 1; # воскресенье = 0, понедельник = 1 


дігесіогіеѕ = ("."); 


ег дау = 24 х 60 х 60; 
‚ $һоиг, Фдау, Фтоп, Фуг, $40м) = 1оса1+іте 


іте10са1(0, 0, 0, $аау, Фтоп, $уг); # сегодня в полночь 
= $Тагоет_9ом) { 


і? (--$90м < 0) { 


ФЧом 


} 
ту $ѕїор = $$ 


ту(Фоаіһег, $ 


Ріпа ($датпег 

пу @711е$ = $ 

Тог му $#11е 
ту Фтіјте 
ту Фиһеп 
ргіпі "9м 


} 


Обратите внимание на комментарий по поводу перехода между летним 
временем и зимним. Во многих странах осуществляется переход с лет- 
него времени на зимнее и обратно. В день перевода часов длина суток 
уже не будет равна 86400 секундам. В данном примере эта проблема не 
учитывается, однако вы, как более педантичный программист, могли 


бы принять ее 


а одни сутки 
ѕесопаѕ рег дау; # надеюсь, что не попал на момент перехода 
# между летним временем и зимним! :-) 
= г; 
агї + $ѕесопаѕ рег дау 


уіе10) = даїһег тііте бреїмееп($ѕтагї, фѕїор); 


@ѕтагііпо_дігесїогіеѕ) 

уїеө14->( ); 

(@#110ѕ) { 

= (ѕіаї $711е)[9]; # получение времени последнего изменения 


= 10са141те фтііте 
реп: $Е11е\п” 


во внимание. 


Ссылки на дескрипторы файлов 


Мы рассмотрели возможность передачи массивов, хешей и подпро- 
грамм по ссылке, ввели дополнительные уровни абстракции для раз- 
решения некоторых типов проблем. Однако кроме этого ссылки могут 
служить для хранения дескрипторов файлов. Взглянем еще раз на ста- 
рые проблемы и новые пути их решения. 


Старый способ 


В былые времена дескрипторы файлов обозначались именами, не имев- 
шими специального префикса. Дескриптор файла — это еще один тип 
данных в языке Рег], хотя об этом не вспоминают уже достаточно дав- 
но, поскольку он не имеет специального обозначения. Вам, вероятно, 
уже встречался программный код с подобными именами дескрипторов. 


ореп [06_ЕН, ‘>> саѕТамауѕ. 100' 
ог аіе "Невозможно открыть файл саѕтамауѕ. 109: $! "; 


Что произойдет, если передать подобный дескриптор в другую часть 
программы, например библиотечной подпрограмме? Наверное, вам 
приходилось видеть и несколько более загадочный код, в котором фи- 
гурируют значения специального типа 1уред100: 


109 теѕѕаде( «100 ЕН, '`Путешественники высадились на берег!‘ ); 


109 теѕѕаде( «100 ЕН, Астронавт выдержал перегрузки’ ); 


В подпрограмме 109_пеѕѕаде() выбирается первый элемент из списка 
аргументов и сохраняется в другой переменной типа їуред1ор. Не вда- 
ваясь в детали, заметим лишь, что переменные типа їуред1ор хранят 
указатели на все переменные пакета, имеющие то же самое имя. Когда 
присваивается значение одной переменной типа їуред1ор другой пере- 
менной того же типа, создается псевдоним, по которому можно будет 
обращаться к тем же самым данным, включая и дескрипторы файлов. 
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Затем, когда это имя будет выступать в качестве дескриптора файла, 
Рег1 уже будет знать, что необходимо выбрать ту часть переменной ти- 
па їуред1ор, которая является дескриптором файла. Было бы намного 
проще, если бы дескрипторы файлов имели специальное обозначение! 


зиб 109_теззаде { 
10са1 «РН = $111; 
ргіпі ЕН @, “\п”; 
} 


Обратите внимание на спецификатор 10са1. Для работы с переменными 
типа їуред10р используется таблица символов, то есть операции выпол- 
няются с переменными пакета. Переменные пакета не являются лек- 
сическими переменными, поэтому спецификатор ту здесь недопустим. 
Таким образом, чтобы избежать возможных конфликтов имен из-за то- 
го, что где-то в пакете может быть объявлена другая переменная с име- 
нем ЕН, необходим спецификатор 10са1. Данный спецификатор гово- 
рит, что значение переменной ЕН временное, что оно будет действовать 
только внутри подпрограммы 109_птеззаде и что после завершения под- 
программы Рег должен восстановить прежнее значение переменной 
ЕН, если таковая вообще существовала. 


Если все это вам надоело и вы не хотите об этом думать, ну и ладно! 
Есть способ и получше. Будем считать, что этот раздел вы даже не ви- 
дели, — переходите к чтению следующего. 


Улучшенный способ 


Начиная с РегІ 5.6 функция ореп получила возможность создавать 
ссылку на дескриптор файла в виде обычного скалярного значения. 
Теперь мы можем обозначать дескрипторы файлов не именами без спе- 
циального префикса, а обычными скалярными переменными со значе- 
нием по умолчанию упадет. 


ту Ф109 #һ; 
ореп $109 #һ, '>> саѕтамауѕ. 109' 
ог аіе "Невозможно открыть файл саѕтамауѕ. 109: $! "; 


Из этого ничего не выйдет, если скалярная переменная уже имеет ка- 
кое-либо значение, потому что Рег1 не сможет идентифицировать дан- 
ную переменную как дескриптор файла. Значение $100 _#ћ будет интер- 
претироваться как символическая ссылка, в результате печать будет 
произведена в дескриптор файла с именем 5. При наличии директивы 
иѕе ѕігісї это приведет к фатальной ошибке. 


ту $100 #һ = 5; 
ореп $109 #һ, '>> сазтамауз. 109' 

ог аіе "Невозможно открыть файл саѕтамауѕ. 109: $! "; 
ргіпі $109 #һ "Нам нужно больше орехов! \п"; # не работает 


Главный принцип Рег1 заключается в том, чтобы все делать за один 
шаг. Мы можем объявить переменную прямо в операторе ореп. Снача- 
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ла это будет казаться странным, но через пару (ладно, чуть больше) раз 
вы привыкнете, потому что ко всему хорошему привыкаешь быстро. 


ореп му $109 #һ, ‘>> сазтамауз. 100' 
ог аіе "Невозможно открыть файл саѕтамауѕ. 109: $! "; 


При выводе данных в файл вместо прежнего обозначения дескриптора 
файла мы можем аналогичным образом задействовать скалярную пе- 
ременную. Обратите внимание: здесь после дескриптора файла по- 
прежнему нет запятой. 


ргіпі $109 #һ "Сегодня у нас нет бананов! \п” 


Такой синтаксис может показаться вам забавным, но даже если нет, 
он может показаться несколько странным человеку, который позднее 
будет просматривать вашу программу. В книге «Веѕі РегІ Ргасіісеѕ» 
Дэмиан Конвей (Юатіап Сопуау) рекомендует окружать переменную 
дескриптора файла фигурными скобками, чтобы явно указать ее пред- 
назначение. Такой синтаксис больше напоминает операторы дгер и пар 
со встроенными блоками. 


ргіпі {$109 #һ} "Сегодня у нас нет бананов! \п” 


Теперь мы можем работать с дескрипторами файлов как с обычными 
скалярными переменными. И для этого нам не понадобятся какие-ли- 
бо хитрости или уловки. 


109 теѕѕаде( Ф109 Ғһ, ‘Меня зовут мистер Эд’); 


ѕир 109_теззаде { 
ту ФЕН = $11: 
ргіпі ФЕ @, “\п”; 
} 


Кроме того, мы можем создавать ссылки на дескрипторы файлов, что- 
бы потом читать данные из этих файла. Для этого достаточно передать 
имя файла во втором аргументе. 


ореп му $11, "саѕ+амауѕ. 109" 
ог аіе "Невозможно открыть файл сазтамауз.109: $!”; 


После чего получаем возможность использовать в операторе ввода ска- 
лярную переменную вместо прежнего обозначения дескриптора фай- 
ла. Ранее нам пришлось бы вставить между угловыми скобками имя 
дескриптора без префикса: 


мђі1е( <100 РН> ) {... } 
Теперь же его можно заменить скалярной переменной. 
мИ11е( <$109_?һ> ) {... } 


Вообще везде, где раньше дескрипторы файлов обозначались именем 
без префикса, теперь можно использовать скалярные переменные со 
ссылками. 
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В любой из этих форм записи, когда скалярная переменная выходит 
из области видимости (или когда ей присваивается какое-либо другое 
значение), Рег] закрывает файл. Нам не надо самим закрывать файл. 


Способ еще лучше 


До сих пор в наших примерах демонстрировалась форма обращения 
к оператору ореп с двумя аргументами, но на самом деле их может быть 
больше: во втором аргументе вместе с именем файла можно дополни- 
тельно указать режим открытия. Таким образом, получается, что в од- 
ной строке передаются два разных параметра, и мы должны свято ве- 
рить в возможности Регі, чтобы понять и принять такую форму записи. 


Чтобы избежать возможной путаницы, мы разобъем второй аргумент 
на два отдельных. 


ореп му Ф109 #һ, ‘>>’, ‘сазтамауз. 109' 
ог аіе "Невозможно открыть файл саѕтамауѕ. 109: $!”; 


Такая форма записи с тремя аргументами обладает дополнительным 
преимуществом доступа к фильтрам ввода-вывода Ре!1. Мы не будем 
здесь слишком углубляться в обсуждение.! В рег1#ипс описание функ- 
ции ореп занимает более 400 строк, и это при том, что для нее имеется 
специальный раздел в справочном руководстве рег1йос рег1орептит. 


1О::Напае 


Для выполнения всех необходимых действий с дескрипторами файлов 
в Ре! предназначен модуль 10: :Напд]е, работающий «за кулисами». 
Таким образом, наш скаляр на самом деле является объектом.? Пакет 
І0::Напд1е представляет собой основной класс, посредством которого 
выполняются операции ввода-вывода, то есть его функции намного 
шире, чем простое управление файлами. 


Вам едва ли придется напрямую иметь дело с модулем Т0: :Напд1е, если 
только вы не создаете собственные модули ввода-вывода. Ему лучше 
предпочесть более удобные модули, работающие поверх І10::Напа1е. Мы 
еще не обсуждали тему объектно-ориентированного программирования 
(ООП); ее черед наступит в главе 11. Поэтому пока руководствуйтесь 
примерам из документации к модулю. 


1 Брайан написал статью «Се Моге Ои о? Ореп», которая увидела свет 
в журнале «Тһе РегІ Зойгпа1» 31 октября 2005 года, ћіір:/ /шшш.ірј.сот/ 
аоситепіїѕ/8=9923/1рј11830955178261 /0аў ореп.ћіт. 

2 Приходилось ли вам когда-нибудь задаваться вопросом, почему после име- 
ни дескриптора файла не ставится запятая? В действительности это косвен- 
ное обозначение объекта (о чем мы еще не упоминали, если, конечно, вы не 
прочитали книгу прежде, чем стали обращать внимание на сноски в соот- 
ветствии с нашими рекомендациями!). 
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Функции некоторых из этих модулей могут выполняться встроенной 
функцией ореп (в зависимости от версии Рег). Но для выполнения опе- 
раций ввода-вывода гораздо удобнее модули. В этом случае вместо 
встроенной функции ореп мы можем задействовать интерфейс модуля. 
Тогда впоследствии, чтобы изменить поведение программы, достаточ- 
но будет изменить имя подключаемого модуля. А поскольку мы ори- 
ентируемся на использование интерфейса модуля, изменение имени — 
это не такая уж сложная работа. 


1Ю::ЕЙе 
Модуль 10::ЕПе наследует функциональные возможности модуля 
І0::Напд1е и предназначен специально для работы с файлами. Модуль 


входит в состав стандартного дистрибутива Рег] и потому уже должен 
иметься у вас. Создать объект 10: :Е1]е можно несколькими способами. 


Создать ссылку на дескриптор файла можно с помощью конструктора, 
передав ему единственный аргумент. В успехе выполнения операции 
можно убедиться, проверив значение переменной-ссылки. 


иѕе 10::Рі1е; 


ту ФЕН = 10::;Рі1е->пем( ‘> саѕіамауѕ.100' ) 
ог аіе "Невозможно открыть файл саѕтамауѕ. 109: $! "; 


Если вам не нравится такая форма записи (по тем же причинам, что 
и форма обращения к обычной функции ореп), можно воспользоваться 
другой формой. Режим открытия файла можно указать во втором не- 
обязательном аргументе.! 


ту Фгеаа #һ = І0::Рі16->пем( `саѕамауѕ. 109', ‘г’ ); 
ту Фмгіе ?һ = 10::Рі1е->пем( `саѕіамауѕ. 109', ‘м’ ); 


Режим открытия файла можно определить точнее с помощью битовой 
маски. Для этих целей модуль 10: :Рі1е предоставляет дополнительные 
константы. 


ту Фаррепа_РИ = 10::Рі1е->пем( ‘сазтамауз. 109’, 0_МВОМЕУ|0_АРРЕМО ); 


Кроме обычного именованного файла, модуль 10::Рі1е позволяет от- 
крыть неименованный временный файл. Если операционная система 
допускает подобную возможность, чтобы получить дескриптор файла, 
открытого для записи и чтения, то достаточно создать новый объект. 


ту $Тетр_РН = 10: :Рі16->пем тр?і1е; 


Такого рода файлы закрываются автоматически, когда программа по- 
кидает область видимости переменной. Если этого недостаточно, файл 
можно закрыть явно. 


1 Эти строки режимов открытия файла определены в стандарте АМ№І С для 
функции Гореп. Аналогичный формат представления режима допускается в 
функции ореп, поскольку в действительности она использует объект 10: :Е11е. 
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фетр #һ->с10ѕе; 


ипае? фаррепа_#һћ; 


Анонимные объекты 1О::ЕЙе 


Если не хранить объекты 10::Рі1е в скалярных переменных, то для вы- 
полнения некоторых операций придется прибегнуть к несколько ино- 
му синтаксису. Предположим, что необходимо скопировать все файлы, 
имена которых согласуются с шаблоном +. іприї, в соответствующие им 
файлы с расширением .оиіриї, причем выполнить все операции копи- 
рования необходимо одновременно. В этом случае в первую очередь не- 
обходимо открыть все входные и выходные файлы: 


ту @һапа1ераігѕ; 


Ғогеасһ му $111е ( 9106( ‘».1приЁ’)) { 
(ту ои = $7е) =" 5/\.іприї$/. оиїри+/; 
риѕћ @һапд1ераігѕ, [ 
(10::ЕіЛе->пем(“<$#1160”) || аїе), 
(ІО: :Рі1е->пем(“>$оџиі”) || 91е), 
16 
} 


Мы получили массив ссылок на массивы, каждый элемент которых 
представляет собой объект 10: :Ғі1е. Теперь можно копировать данные. 


мһі1е (@һапа1ераігѕ) { 
@һапа1ераігѕ = дгер { 
і? (деғіпед(ту $11те = $ ->[0]->де1іпе)) { 
ргіпё { $ ->[1] } $11те; 
} е1ѕе { 
0; 
} 
} @папа]ера1г$ 
} 


Здесь пары входных и выходных файлов передаются оператору одгер, 
имеющему следующую структуру: 


@һапа1ераігѕ = дгер { СОМОТТТОМ } @папа1ера1гз; 


На каждом проходе в списке остаются только те пары дескрипторов, 
которые в результате проверки условия СОМОТТТОМ дают значение «ис- 
тина». Внутри блока условия производится попытка чтения из перво- 
го элемента пары. Если операция завершилась успехом, прочитанная 
строка записывается во второй элемент пары (дескриптор соответству- 
ющего выходного файла). Если операция записи прошла успешно, воз- 
вращается значение «истина», и тогда оператор 0гер оставляет данную 
пару в списке. Если операция записи или чтения терпит неудачу, опе- 
ратор дгер получит в качестве результата проверки условия значение 
«ложь» и удалит пару из списка. Удаление пары дескрипторов из спи- 
ска автоматически приводит к закрытию обоих файлов. Отлично! 


1О::Напе 115 


Обратите внимание: мы не можем обратиться к более привычным опе- 
рациям чтения и записи из/в дескрипторы, потому что мы отказались 
от простых скалярных переменных. Со скалярными переменными опе- 
рации чтения-записи реализуются гораздо проще: 


мһі1е (@һапа1ераігѕ) { 
@һапд1ераігѕ = дгер { 
пу ($Т№, $007) = @$ ; 
1Ғ (деғіпед(ту $1іпе = <$1№>)) { 
ргіпі $00Т $11те; 
} е1ѕе { 
0; 
} 
} @һапа1ераігѕ 
} 


Такой алгоритм, по нашему мнению, более предпочтителен, посколь- 
ку действия с простыми скалярными переменными воспринимаются 
человеком легче, чем операции со сложными ссылками. Кроме того, 
можно избавиться от оператора 11 в цикле: 


мһі1е (@һапа1ераігѕ) { 
@һапа1ераігѕ = дгер { 
пу ($10, $007) = @$ ; 
ту $1іпе 
аеғіпеа($1іпе = <1№>) апа ргіпі Ф007 $11пе 
} @һапа1ераігѕ; 
} 


Если вы понимаете, что оператор апд учитывает результат вычисления 
предыдущей части выражения и что функция ргіпї возвращает значе- 
ние «истина» только в том случае, когда все в порядке, то такая замена 
может считаться вполне оправданной. Помните лозунг языка Рег: 
«Любое действие можно сделать несколькими способами» (хотя не все 
они одинаково хороши или правильны). 


10::бса|аг 


Иногда возникает необходимость записать данные не в файл, а в стро- 
ку. Интерфейсы некоторых модулей не предоставляют такой возмож- 
ности, поэтому мы должны реализовать алгоритм работы программы 
таким образом, чтобы он напоминал вывод данных в файл через деск- 
риптор файла. Подобная потребность может быть обусловлена необхо- 
димостью зашифровать данные перед записью в файл, сжать их или 
отправить данные по электронной почте прямо из программы. 


Модуль 10: :5са1аг предоставляет возможность работы со скалярами 
через дескриптор файла посредством оператора їіе. Этот модуль отсут- 
ствует в стандартном дистрибутиве Регі, поэтому его придется устано- 
вить отдельно. 


иѕе ТО: :5са1Такг; 
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ту $$1и119_109 = ''; 
ту $зса1аг_РИ = Т0: :5са1Іаг->пем( \Фәігіпо 109 ); 


ргіпі $ѕсаїаг #һ “Частный клуб Хоуэлла закрыт\п” 


Теперь наши сообщения будут попадать в скалярную переменную 
фѕігіпо_ 100, а не в файл. А как быть, если возникнет необходимость 
прочитать данные? Сделать это можно точно так же, как и в случае 
с обычным файлом. В примере, который приводится ниже, сначала соз- 
дается дескриптор $ѕса1аг_?һ, как и в предыдущем примере. Затем вы- 
полняется операция чтения из строки. В цикле мћі1е извлекаются стро- 
ки, содержащие имя Джиллиган (которых в журнале наверняка будет 
больше всего, т. к. он всегда попадает в какие-нибудь неприятности). 


иѕе ТО: :5са1аг 


ту Фѕігіпо 109 = ''; 
ту $зса1аг_РИ = 10: :5са1аг->пем( \Фәігіпо 109 ); 


мћі16( <фѕсаїаг #?һ> ) { 
пехі ип1еѕѕ / `Джиллиган '/; 
ргіпі; 


} 


Начиная с версии Рег] 5.8 то же самое можно сделать, не прибегая к ус- 
лугам модуля ТО: : оса1аг. 


ореп( ту $#һ, ‘>>’, \$ѕігіпд 109 ) 
ог 91е "Невозможно открыть строку для дополнения! $! "; 


1О::Тее 


Как быть, если информацию необходимо одновременно вывести более 
чем в одно место? Что надо сделать, чтобы, например, записать некото- 
рые данные в файл и в строку одновременно? Опираясь на уже имею- 
щиеся у нас знания, мы могли бы написать что-нибудь вроде: 


пу Фѕігіпо =‘; 


ореп ту Ф109 #һ, ‘>>’, ‘сазтамауз. 109' 
ог 91е "Невозможно открыть файл саѕїамауѕ. 109; 
ореп ту $зса1аг_Рй, ‘>>’, \$ѕігіпо; 


ту $109 теѕѕаде = "Міппом спущен на воду! \п” 
ргіпі Ф109 #һ $109 пеѕѕаде; 
ргіпі $зса1аг_Рп $109 теѕѕаде; 


Конечно же, мы могли бы несколько сократить объем программного 
кода и обойтись всего одним обращением к оператору ргіпї. Для этого 
можно было бы в цикле Гогеасн выполнить обход всех ссылок на де- 
скрипторы файлов, поочередно записывать их в промежуточную пере- 
менную $11 и выводить данные с ее помощью. 


Ғогеасһ ту Ф#һ ( $109 #һ, Фѕсаіаг #һ ) { 
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рг1пЕ ФРИ Ф109 теѕѕаде; 
} 


Однако при таком подходе нам все равно приходится проделывать до- 
вольно много работы. Так, при добавлении цикла Тогеас! нам пришлось 
выбирать, какие дескрипторы включать в список. Существует ли воз- 
можность определить группу дескрипторов под одним общим названи- 
ем и производить вывод в эту группу? Да, такую возможность дает мо- 
дуль 10: : Тее. Представьте себе тройник на водопроводной трубе. Когда 
вода доходит до тройника, она направляется по двум ответвлениям од- 
новременно. Когда данные выводятся средствами модуля 10: :Тее, они 
могут быть отправлены в два (или более) разных канала одновременно. 
Таким образом, 10: : Тее мультиплексирует вывод. В нашем примере со- 
общения должны попадать в файл журнала и в скалярную переменную. 


иѕе ТО: :Тее; 
фтее_РН = ТО: :Тее->пем( $1009 #һ, $ѕса1аг #һ ); 
ргіпі $+ее_Рп "Радио продолжает работать даже посреди океана! \п”; 


Но это еще не все. Если первым аргументом модулю 10: :Тее передается 
дескриптор ввода (все последующие аргументы обязательно должны 
быть дескрипторами вывода), мы сможем использовать получивший- 
ся групповой дескриптор как для чтения, так и для записи. Канал вво- 
да и канал вывода – это разные вещи, но благодаря 10::Тее мы получа- 
ем возможность работать с ними через единственный дескриптор. 


иѕе ТО: :Тее; 
фіее #һ = 10::Тее->пем( фгеаа #һ, $100 #һ, $зса1аг_ ?һ ); 


# прочитать данные из $геаа #һ 
ту $теззаде = <$їеө_#һ>; 


# вывести данные в $109 #һ и фѕса1аг #һ 
ргіпі фіее #һ $пеѕѕаде; 


Дескриптор $геай_?#һ не обязательно должен быть связан с файлом. Это 
может быть открытый сокет, скалярная переменная, вывод внешней 
команды! или что-то другое, что только вам заблагорассудится. 


Ссылки на дескрипторы каталогов 


Так же, как ссылки на дескрипторы файлов, могут быть созданы ссыл- 
ки на дескрипторы каталогов. 


орепа1г му $аһ, `.` ог аіе "Невозможно открыть каталог: $! "; 


Тогеасй ту фРі1е ( геаддіг( $аһ ) ) { 


1 Создать дескриптор канала для внешней команды, доступный для чтения, 
можно с помощью модуля 10::Ріре. 
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ри1пЕ "Шкипер, я нашел $111е! \п"; 


} 


Работа со ссылками на каталоги выполняется в соответствии с теми же 
правилами, о которых мы рассказали выше. Со ссылкой можно рабо- 
тать, только если скалярная переменная не имеет определенного зна- 
чения, и дескриптор автоматически закрывается, если программа по- 
кидает область видимости переменной или когда переменной присваи- 
вается какое-либо значение. 


10::0 


Для работы с дескрипторами каталогов также можно использовать 
объектно-ориентированные интерфейсы. Модуль 10: :01г вошел в со- 
став стандартного дистрибутива Рег1 начиная с версии 5.6. Он не несет 
в себе новой функциональности, а представляет собой лить обертку 
вокруг некоторых встроенных функций языка Ре!1.1 


иѕе 10::01г; 
ту $91г_ТН = 10::0іг->пем( '.’) || 91е "Невозможно открыть каталог! $!\п”; 


мһі1е( деҒіпеа( му $111е = $91г #һ->геаа ) ) { 
ргіпі "Шкипер, я нашел $111е!\п”; 
} 


Нам не надо создавать дескриптор каталога повторно, если позднее 
в этой же программе мы решим просмотреть содержимое каталога еще 
раз. Нам достаточно будет переустановить его в начало: 


мһі1е( деғРіпеа( му $111е = Фаіг #?һ->геаа ) ) { 
ргіпі "Я нашел $#і1е! \п"; 
} 


# спустя некоторое время 
фаіг #ћ->геміпа; 


мһі1е( деҒіпеа( ту $111е = Фаіг #һ->геаа ) ) { 
ргіпі "Я опять нашел Ф?і1е!\п”; 


} 


Упражнения 


Ответы на эти вопросы вы найдете в приложении А в разделе «Ответы 
к главе 8». 


Упражнение 1 [20 мин] 


Напишите программу, которая будет выводить число, месяц, год и день 
недели, но при этом она должна дать пользователю возможность выби- 


1 Имя каждого метода Т0: :01г начинается с приставки іг, а описания мето- 
дов имеются в справочном руководстве рег1Типс. 
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рать, записывать ли данные в файл, в скалярную переменную или од- 
новременно и в файл, и в переменную. Независимо от того, какой вари- 
ант выберет пользователь, вывод должен производиться единственным 
обращением к функции рг1п{. Если пользователь предпочтет вывод 
в скалярную переменную, программа должна выводить ее содержимое 
на экран перед завершением работы. 


Упражнение 2 [30 мин] 


Профессору надо прочитать файл журнала, который выглядит сле- 
дующим образом: 


Джиллиган: 1 кокос 
Шкипер: 3 кокоса 
Джиллиган: 1 банан 
Джинжер: 2 папайи 
Профессор: 3 кокоса 
МэриЭнн: 2 папайи 


Он хочет создать несколько файлов с именами Джиллиган. 1пРо, Мэри- 
Энн. 110 и т. д. В каждый из этих файлов из журнала должны перепи- 
сываться строки, начинающиеся с имени персонажа. (Имена всегда 
отделяются от оставшейся части строки символом двоеточия.) Напри- 
мер, файл Джиллиган. 1пРо должен начинаться со строк: 


Джиллиган: 1 кокос 
Джиллиган: 1 банан 


Сейчас файл журнала достаточно велик, а компьютер на кокосовом 
процессоре не отличается высокой скоростью, поэтому Профессор хо- 
тел бы, чтобы программа выполняла всего один проход журнала и вы- 
водила бы информацию во все файлы параллельно. 


Подсказка: используйте хеш, ключами которого были бы имена потер- 
певших кораблекрушение, а значениями — объекты 10: :Е11е, которые 
могут создаваться по мере необходимости. 


Упражнение 3 [15 мин] 


Напишите программу, которая принимала бы из командной строки 
имена нескольких каталогов и выводила бы их содержимое. Исполь- 
зуйте функцию, которая принимает в качестве аргумента ссылку на 
дескриптор каталога, созданную с помощью 10::0іг. 


Практические приемы 
работы со ссылками 


В этой главе мы рассмотрим оптимизацию сортировки и обработку ре- 
курсивно определенных данных. 


Краткий обзор способов сортировки 


Встроенная функция ѕогї в языке Ре!1 по умолчанию сортирует текс- 
товые строки в алфавитном порядке.! Она замечательно справляется 
со строками: 


ту @ѕогіеа = зогЕ дм(Джиллиган Шкипер Профессор Джинджер Мэри_Энн); 
но если ей передать список чисел: 
ту @игопа1у_зогфед = ѕогї 1, 2, 4, 8, 16, 32; 


в результате мы получим такую последовательность: 1, 16, 2, 32, 4, 8. 
Почему функция сортировки дала неправильный порядок? Просто по- 
тому, что эта функция интерпретирует элементы списка как строки 
и сортирует их в соответствии с правилами, применяемыми при сорти- 
ровке строк. Любая строка, начинающаяся с символа 3 должна стоять 
раньше, чем какая-либо строка, начинающаяся с символа 4. 


Если порядок сортировки, принятый по умолчанию, вас не устраива- 
ет, это вовсе не означает, что вам придется полностью реализовать весь 


1 Мои друзья называют его «АЗСП-витный» порядок сортировки. Обычно 
язык Ре! использует для сортировки не коды АЗСП, а заданный по умолча- 
нию порядок сортировки, который зависит от текущих языковых настроек 
и используемого набора символов. Более подробно об этом можно прочитать 
на странице справочного руководства тап рег11оса1е (не рег110са1!). 
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алгоритм сортировки, поскольку все необходимое уже имеется в Рег]. 
Но какой бы алгоритм вы ни использовали, вам все равно придется 
сравнивать пары элементов А и В и решать, какой из них должен сле- 
довать первым. Именно эту часть алгоритма сортировки вам придется 
написать, все остальное Рег] сделает сам. 


По умолчанию при выполнении сортировки Рег] сравнивает элементы 
списка как строки. Мы можем определить иной способ сравнения, 
вставив блок сортировки между оператором ѕогї и списком элемен- 
тов.! Внутри блока сортировки существуют переменные $а и $0, кото- 
рые содержат значения двух элементов списка. Если мы будем сорти- 
ровать числа, то в Фа и $0 будут находиться два числа из списка. 


Чтобы указать, в каком порядке должны располагаться текущие два 
элемента, блок сортировки должен возвращать результат сравнения в 
определенном виде. Если элемент $а должен предшествовать элементу 
$6, должно возвращаться число -1. Если элемент $0 должен предшест- 
вовать элементу $а, должно возвращаться число 1. Если порядок следо- 
вания не имеет значения, должно возвращаться число 0. Порядок сле- 
дования может оказаться неважным, например при сравнении двух 
слов «Фред» и «ФРЕД» без учета регистра символов или при сравнении 
одинаковых чисел, например 42 и 42.2 


Попробуем отсортировать числа в надлежащем порядке, для чего на- 
пишем свой блок сортировки, в котором будут сравниваться элементы 


$аи $0: 
ту @питегіса11у ѕогіей = ѕогі { 
1Ғ (Фа < $0) СР: 
е15і? ($а > $5) {+1} 
е1зе {0} 


1, 12, 4, -8, 16, 32: 


Теперь элементы списка сравниваются как числа, поэтому в результа- 
те мы получим правильный порядок следования. Конечно, при таком 
способе приходится вводить с клавиатуры довольно много кода, но мы 
можем сократить его, применив оператор <=>: 


ту @питег1са11у_зогфед = ѕогї { Фа <=> $6 } 1, 2, 4, 8, 16, 32; 


1 Здесь можно также вставить обращение к подпрограмме, которая будет вы- 
зываться для сравнения пар элементов. 

2 На самом деле вместо чисел -1 и +1 можно возвращать любые отрицатель- 
ные или положительные числа соответственно. Современные версии Рег 
обладают устойчивым механизмом сортировки. Так, если блок сортировки 
возвращает нулевое значение при сравнении элементов $а и $0, то гаранти- 
руется, что на выходе порядок следования этих элементов будет соответст- 
вовать оригинальному. Старые версии Рег] таких гарантий дать не могли, 
возможно, и в будущих версиях устойчивый механизм сортировки исполь- 
зоваться не будет, поэтому не стоит на это полагаться. 
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Оператор <=> сравнивает элементы и возвращает значения -1, 0 или +1 
в соответствии с правилами, которые мы только что описали. Сорти- 
ровка в обратном порядке в Рег] выполняется очень просто:1 


ту @питегіса11у деѕсепаіпо = 
гемегѕе ѕогі { фа <=> $6 } 1, 2, 4 8, 16, 32; 


Однако это не единственный способ сортировки чисел в обратном по- 
рядке. Оператор <=> ничего не знает о существовании списка и понятия 
не имеет, откуда взялись значения параметров $а и $0. Он видит только, 
что одно значение стоит слева от него, а другое справа. Поменяв пара- 
метры $а и $0 местами, мы получим обратный порядок сортировки: 


ту @питегіса11у деѕсепаіпо = 
зогі { $6 <=> Фа } 1, 2, 4, 8, 16, 32; 


Если раньше при сравнении пары элементов возвращалось значение 
-1, то теперь это выражение будет возвращать значение +1, и наоборот. 
Таким образом, список будет отсортирован в обратном порядке, и при 
этом нам не потребовался оператор геуегзе. Этот прием легко запом- 
нить: если $а стоит слева, а $6 — справа, то первым в списке будет сто- 
ять наименьший элемент (точно так же, как стояли бы символыаи 
в отсортированном списке). 


Какой из способов лучше? Когда следует предпочесть оператор геуегзе, 
а когда надо менять местами элементы $а и $0? В большинстве случаев 
эффективность этих двух способов практически одинакова, поэтому 
в первую очередь выбор следует делать исходя из соображений удобо- 
читаемости программного кода и отдавать предпочтение оператору ге- 
уегзе. Однако в более сложных случаях одного только оператора ге- 
уегзе может оказаться недостаточно. 


У оператора <=> есть коллега — оператор спр, сортирующий строки, хо- 
тя на практике он применяется редко, потому что функция $0гї() по 
умолчанию сортирует элементы как строки. Чаще всего оператор стр 
нужен для реализации более сложных алгоритмов сравнения, которые 
мы вскоре продемонстрируем. 


Сортировка по индексам 


В главе 2 при помощи индексов мы преодолели некоторые трудности 
в операторах дгер и пар. Аналогичным образом индексы можно задейст- 
вовать в реализации алгоритмов сортировки, дающих довольно инте- 
ресные результаты. Попробуем отсортировать список имен персонажей: 


ту @ѕогіеа = зогЕ дм(Джиллиган Шкипер Профессор Джинджер Мэри_Энн); 
ргіпі "@ѕогіеа\п”; 


1 Начиная с версии 5.8.6 Рег правильно интерпретирует последователь- 
ность операторов геуегзе зог{ и сразу выполняет сортировку в обратном по- 
рядке, не создавая промежуточный временный список. 
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В результате мы получим следующий список:1 
Джиллиган Джинджер Мэри_Энн Профессор Шкипер 


Но как быть, если потребуется узнать, какой элемент исходного спи- 
ска стал первым, вторым, третьим ит. д. элементом отсортированного 
списка? Например, имя Джинджер занимает вторую позицию в отсор- 
тированном списке, а в исходном списке оно занимало четвертую по- 
зицию. Как узнать, что второй элемент получившегося списка был 
четвертым элементом в исходном? 


Тут нет ничего сложного. Достаточно перейти от сортировки имен к сор- 
тировке их индексов: 


ту @іпри+ = ам(Джиллиган Шкипер Профессор Джинджер Мэри_Энн); 
ту @ѕогіеа роѕіїіопѕ = ѕогї { $1при [Фа] стр $1приЕ[$Ь] } 0..%#іприї; 
ри1пЕ "@ѕогіеа роѕіїіопз\п”; 


В данном случае $а и $6 представляют не элементы списка, а их индек- 
сы. Таким образом, вместо того чтобы сравнивать значения Фа и $0, мы 
сравниваем $іприї[$а] и $1приї[$6 ] как строки с помощью оператора стр. 
В результате индексы сортируются в соответствии с алфавитным по- 
рядком следования имен, которые они представляют. В данном приме- 
ре мы получили последовательность индексов 0 3 4 2 1. Это означает, 
что первый элемент оригинального списка остался на первой позиции 
в отсортированном. Второй элемент отсортированного списка занимал 
третью позицию в оригинальном и т. д. Теперь мы можем не только от- 
сортировать список, но и проанализировать полученные результаты. 


Мы знаем, какую позицию занимал элемент в оригинальном списке, 
но пока еще не знаем, какую позицию займет элемент после сортиров- 
ки. Следующий пример дает ответ на этот вопрос: 


ту @іпри+ = ам(Джиллиган Шкипер Профессор Джинджер Мэри_Энн); 

ту @ѕогіеа роѕіїіопѕ = ѕогї { $1при [$а] стр $іприї[ $0] } 0..%#іприї; 
ту @гапкѕ; 

@гапкз[@ѕогіеа роѕіїіопѕ] = (0. .$#ѕогіеа роѕіїіопз); 

ргіпі “@гапкз\п”; 


Этот пример выведет последовательность чисел 0 4 3 1 2. Это означа- 
ет, что позиция имени Джиллиган после сортировки не изменится, 
имя Шкипер переместится в позицию с номером 4, Профессор - в пози- 
цию с номером Зит. д. В данном случае нумерация позиций начинает- 
ся с 0, поэтому, чтобы перейти к нумерации, более понятной для обыч- 
ного человека, нужно к полученным номерам добавить единицу. Для 
этого вместо 0. .@50гїей роѕіїіопѕ можно использовать 1. .@ѕогіеа роѕі- 
1101$, например так: 


ту @іприї = ам(Джиллиган Шкипер Профессор Джинджер Мэри_Энн); 


1 Ион именно таким получается для переведенных на русский язык элемен- 
тов списка (в АсйуеРе11 5.8.8.). – Примеч. науч. ред. 


124 


Глава 9. Практические приемы работы со ссылками 


ту @ѕогіеа роѕіїіопз = ѕогї { $1при [Фа] стр $іприї[ $0] } 0..%#іприї; 
ту @гапк$ 


@гапкѕ[@ѕогтеа роѕі+іопѕ] = (1. .@ѕогіеа роѕі+іопѕ) 
Рог (0..%#гапкѕ) { 
ргіп "Имя $іприї[$ 1 переместится в позицию Фгапкз[$_]\п” 


} 
Результат работы этого примера: 


Имя Джиллиган переместится в позицию 1 
Имя Шкипер переместится в позицию 5 

Имя Профессор переместится в позицию 4 
Имя Джинджер переместится в позицию 2 
Имя Мэри_Энн переместится в позицию 3 


Данная методика может оказаться достаточно удобной везде, где необ- 
ходимо проанализировать данные с разных точек зрения. Например, 
когда порядок следования элементов данных из соображений эффек- 
тивности определяется порядком следования некоторых числовых ин- 
дексов, но время от времени возникает необходимость вывести их в ал- 
фавитном порядке. Или при анализе системных журналов серверов, ко- 
гда выполнить сортировку по некоторым элементам, например по номе- 
ру месяца, бывает не так просто. 


Эффективность алгоритмов сортировки 


Профессор отвечает за поддержание в исправном состоянии компью- 
терной техники (собранной целиком из бамбука, кокосовых орехов, 
ананасов и работающей под управлением обезьянки, обученной языку 
Рег), поэтому он все время обнаруживает, что люди оставляют слиш- 
ком много данных в единственной обезьяньей файловой системе, и по- 
этому решил распечатать список недобросовестных пользователей. 


Профессор написал подпрограмму аѕк_попкеу_ароџї(). Ей передается 
имя одного из потерпевших кораблекрушение, а она возвращает объем 
пространства в ананасах, которое данный человек занял для хранения 
своей информации. Самый простой способ вывести список пользовате- 
лей в порядке убывания расходуемого ими пространства выглядит 
примерно так: 


ту @сазТамауз = 
дм(Джиллиган Шкипер Профессор Джинджер Мэри_Энн Торстон Ловей) 
ту @мазтегз = ѕогї { 
аѕк топкеу арои ($0) <=> аѕк топкеу ароџї($а) 
} @сазтамауз; 


Теоретически такой метод вполне работоспособен. Для первой пары 
имен (Джиллиган и Шкипер) мы спрашиваем у обезьянки: «Сколько 
ананасов занял Джиллиган?» и «Сколько ананасов занял Шкипер?». 
Обратно получаем два числа, с помощью которых определяем порядок 
следования Джиллигана и Шкипера в заключительном списке. 
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Однако наступает момент, когда необходимо сравнить число ананасов, 
занятое Джиллиганом и другим его сотоварищем. Например, предпо- 
ложим, что следующая пара – это Джинджер и Джиллиган. Мы спра- 
шиваем у обезьянки о Джинджер, получаем от нее ответ и затем спра- 
шиваем о Джиллигане... снова. Это наверняка не понравится обезьян- 
ке, поскольку о Джиллигане мы уже спрашивали. Но этот алгоритм 
заставит нас запрашивать каждое значение по два, три или даже четы- 
ре раза, чтобы разместить всего семь значений в требуемом порядке. 


Это обстоятельство может сильно испортить нам жизнь, потому что 
обезьянка выйдет из себя. 


Как же свести к минимуму число вопросов, которые должны быть за- 
даны обезьянке? Для начала, например, можно построить таблицу. 
Мы будем передавать оператору пар список из семи имен, а на выходе 
получать семь ссылок на массивы, каждый из которых будет содер- 
жать имя потерпевшего кораблекрушение и количество ананасов, ко- 
торое сообщит обезьянка. 


ту @патеѕ апа ріпеарр1еѕ = мар 
[ $, аѕк топкеу ароиї($ф_) 
} @сазтамауз; 


{ 
1 


Здесь мы задали обезьянке семь вопросов. На этом наше общение с ней 
должно быть закончено! У нас теперь есть все, что нужно, чтобы ре- 
шить поставленную задачу. 


На следующем шаге нам необходимо отсортировать ссылки на масси- 
вы, упорядочив их по значениям, которые нам сообщила обезьянка: 


ту @ѕог+еа патеѕ апа ріпеарр1еѕ = ѕогі { 
фр->[1] <=> $а->[1]; 
} @патеѕ апа ріпеарр1езѕ; 


В данной подпрограмме значения $а и $6 – это два элемента списка, 
подлежащего сортировке. Когда $а и $0 представляют числа, мы сорти- 
руем их как числа, когда Фа и $ представляют ссылки, мы должны сор- 
тировать их как ссылки, для этого мы разыменовываем их и извлекаем 
из массивов элементы с индексом 1 (количество ананасов, которое нам 
сообщила обезьянка). Поскольку $0 стоит слева от $а, сортировка будет 
выполняться в порядке убывания. (Профессор хочет, чтобы самые не- 
добросовестные пользователи стояли в самом начале списка.) 


На этом работу можно считать законченной. А если нам потребуется 
только список имен без количества ананасов, то достаточно преобразо- 
вать ссылки в массив имен с помощью еще одного оператора пар: 


ту @патеѕ = тар $_->[0], @ѕогіеа патеѕ апа ріпеарр1еѕ; 


Каждый элемент первоначального списка будет попадать в перемен- 
ную $_, затем эта переменная будет разыменована и из полученного 
массива будет выбран элемент с индексом 0, который содержит только 
имя персонажа. 
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Теперь у нас есть список имен, отсортированный в порядке убывания 
количества занимаемых ананасов, который нам удалось получить все- 
го за три простых шага. 


Преобразование Шварца 


Промежуточные переменные в этом примере больше нигде не встреча- 
ются, они служат только для того, чтобы подготовить исходные дан- 
ные для очередного шага. Мы можем упростить решение задачи, объ- 
единив все шаги: 


пу @патез = 
пар $_->[01, 
ѕогі { $6->[1] <=> $а->[1] } 
пар [ $, азк попкеу_абоу*($_) 1, 
@сазТамауз; 


Поскольку операторы пар и ѕогі выполняются справа налево, мы долж- 
ны читать эту конструкцию снизу вверх. Итак, сначала мы берем спи- 
сок @сазтамауз, создаем ссылки на массивы, задавая обезьянке простые 
вопросы, сортируем список ссылок и затем извлекаем имена из каж- 
дой ссылки на массив. В результате мы получаем список имен, отсор- 
тированный в требуемом порядке. 


Эту конструкцию обычно называют преобразованием Шварца в честь 
Рэндала, пославшего много лет тому назад сообщение в Озепеф. С той 
поры преобразование Шварца не раз доказывало свою эффективность 
и заслуживает, чтобы каждый программист положил его в свою ко- 
пилку практических приемов сортировки. 


Если это преобразование покажется вам сложным для запоминания 
или вы хотите понять основные его принципы, вам поможет следую- 
щая схема, в которой мы выделили постоянные и изменяемые части: 


ту @оитри{_Чата = 
пар $_->[0], 
зогЕ { СРАВНЕНИЕ ПАР ЭЛЕМЕНТОВ $а->[1] И $6->[1] } 
пар [ $, ВЫЗОВ ДОРОГОСТОЯЩЕЙ ФУНКЦИИ ОТ $_1, 
@1при{_ дата; 


В основе преобразования лежит отображение первоначального списка 
в список ссылок на массивы, дорогостоящий вызов функции для каж- 
дого элемента списка производится всего один раз. Сортировка ссылок 
на массивы производится на основе значений, полученных в результа- 
те обращения к этой функции.! После этого извлекаются первоначаль- 
ные значения, но уже в новом порядке. Чтобы воспользоваться этим 
преобразованием, нам достаточно реализовать две операции. Ниже 


1 Дорогостоящей называется такая операция, выполнение которой занимает 
значительное время или в процессе ее исполнения потребляется значитель- 
ный объем памяти. 
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приводится программный код, реализующий сортировку строк без 
учета регистра символов на основе преобразования Шварца:! 


ту @оџтриї дата = 
пар $_->[0], 
ѕогі { $а->[1] стр $6->[1] } 
пар Г $_, "0$" 1, 
@іприї дата; 


Многоуровневая сортировка на основе 
преобразования Шварца 


Если необходимо отсортировать данные в соответствии с несколькими 
критериями одновременно, мы можем воспользоваться преобразова- 
нием Шварца. 


ту @оџтриї адата = 
пар $_->[0], 
зогЕ { СРАВНЕНИЕ ПАР ЭЛЕМЕНТОВ $а->[1] И $6->[1] ог 
СРАВНЕНИЕ ПАР ЭЛЕМЕНТОВ $а->[2] И $6->[2] ПО ДРУГОМУ КРИТЕРИЮ ог 
СРАВНЕНИЕ ПАР ЭЛЕМЕНТОВ $Фа->[2] И $6->[2] ПО ТРЕТЬЕМУ КРИТЕРИЮ } 
пар [ $, НЕКОТОРАЯ ФУНКЦИЯ ОТ $_, ЕЩЕ ОДНА ФУНКЦИЯ, И ЕЩЕ ОДНА 1, 
@іприї аата; 


В этом шаблоне предусмотрена сортировка по трем различным крите- 
риям на основе трех значений, вычисленных и записанных в аноним- 
ные массивы (вместе с оригинальными данными, которые должны 
быть отсортированы и которые всегда записываются в первый элемент 
массива). 


Данные с рекурсивной организацией 


До этого момента мы приводили примеры обработки данных, имею- 
щих фиксированную структуру, но в реальной жизни нередко прихо- 
дится обслуживать данные с иерархической структурой, которая оп- 
ределяется рекурсивно. 


Первый пример: таблица НТМГ, состоящая из строк и ячеек, которые 
могут в свою очередь содержать целые таблицы. Второй пример: иерар- 
хия файловой системы, содержащей каталоги, которые в свою очередь 
содержат файлы и вложенные подкаталоги. Третий пример: организа- 
ционная структура какой-либо компании, состоящей из нескольких 


1 Этот способ оказывается эффективным только в случае высокой стоимости 
операции приведения символов к верхнему регистру, что наблюдается для 
очень длинных строк или когда количество строк очень велико. Для неболь- 
шого числа коротких строк более эффективным может оказаться такой спо- 
соб: ту @оџїриї дата = ѕогї { "\О$а” стр "|0$0" } @1при{_дата. Если вы сомневае- 
тесь, попробуйте сравнить производительность этих двух методов. 
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подразделений, каждое из которых в свою очередь может делиться на 
более мелкие подразделения. И четвертый пример: очень сложная ор- 
ганизационная диаграмма, которая может содержать экземпляры таб- 
лиц НТМГ из первого примера, элементы файловой системы из второго 
примера и даже целые организационные диаграммы... 


Для получения, хранения и обработки информации с такой иерархи- 
ческой структурой мы можем использовать ссылки. Зачастую подпро- 
граммы, предназначенные для обработки таких структур данных, реа- 
лизуют рекурсивные алгоритмы. 


Рекурсивные алгоритмы позволяют вести обработку данных с неогра- 
ниченной степенью сложности, начиная с некоторого базового слу- 
чая.! Базовый случай определяет порядок действий, которые необхо- 
димо выполнить в простейшем случае: когда лист дерева не имеет вет- 
вей, когда массив пуст или когда счетчик достиг нулевого значения. 
Фактически каждая из ветвей рекурсивного алгоритма должна иметь 
свой базовый случай. Рекурсивный алгоритм без базового случая – это 
бесконечный цикл.? 


Рекурсивные подпрограммы обязательно имеют ветвь, из которой они 
вызывают сами себя для обработки очередного уровня вложенности 
данных, и ветвь, из которой не происходит рекурсивный вызов — здесь 
обрабатывается базовый случай. В случае с первым примером, кото- 
рый приводился выше, базовым случаем будет пустая ячейка табли- 
цы. В качестве базовых случаев можно также рассматривать пустые 
строки таблицы и пустые таблицы. Для второго примера базовыми 
случаями будут файлы и пустые каталоги. 


Например, рекурсивная подпрограмма, вычисляющая факториал чис- 
ла, которая является простейшей рекурсивной функцией, может вы- 
глядеть так: 


зиб Ғасіогіа1 { 


пу $п = $1 ЕЕ; 
і? (Фп <= 1) { 
гефигп 1; 
} е1ѕе { 


гефигп $п * Ғастогіа1($п - 1); 


1 При применении рекурсивных алгоритмов всегда должен иметься элемен- 
тарный базовый случай, для вычисления которого не требуется рекурсив- 
ный вызов функции, а все остальные рекурсивные вызовы должны в ко- 
нечном счете приводить к этому случаю, иначе рекурсивная функция прос- 
то зациклится. 

2 Собственно, не бесконечный цикл, а рекурсия бесконечной глубины, кото- 
рая, скорее всего, закончится «переполнением стека» и аварийным завер- 
шением задачи. — Примеч. науч. ред. 
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Здесь мы имеем две ветви рекурсивного алгоритма: базовый случай, 
когда значение переменной $п меньше или равно 1 и рекурсивный вы- 
зов подпрограммы не производится, и рекурсивный случай, когда зна- 
чение переменной $п больше 1 и производится рекурсивный вызов под- 
программы для обработки очередного уровня вложенности данных (то 
есть вычисление факториала числа, меньшего на 1, чем текущее). 


Эта задача может быть решена более эффективно при помощи итера- 
ционного алгоритма, хотя факториал чаще определяется как рекур- 
сивная операция.! 


Построение структур данных с рекурсивной 
организацией 


Предположим, что нам необходимо получить сведения о файловой 
системе, включая имена файлов и имена каталогов со всем вложенным 
в них содержимым. Представьте себе каталог в виде хеша, в котором 
ключами являются имена файлов и каталогов, а значениями: для про- 
стых файлов — ипдеф, а для каталогов — ссылки на другие хеши. В этом 
случае пример представления каталога /ріп может выглядеть так: 


ту Фріп дігесіогу = { 
саї => ипде#, 
ср => ипает, 
дате => ипает, 
и так далее... 


| 


В домашнем каталоге Шкипера тоже может находиться персональный 
каталог біп, в котором находятся его программы: 


ту Фѕкіррег біп = { 


пауідате => џпде#, 
019сір1іпе_0111ідап => ипаеф, 
ваї => ипде?, 


}; 


В этой структуре нет никакой информации о местонахождении данно- 
го каталога в иерархии файловой системы. Она просто отражает струк- 
туру некоторого каталога. 


Теперь поднимемся на один уровень вверх – к домашнему каталогу 
Шкипера, в котором, скорее всего, вместе с каталогом ріп будут содер- 
жаться и другие файлы: 


пу $зК1ррег_поте = { 
°. СЗПГС” => џпде?, 
'Р1Теазе_гезсие_из. рат” => ипде#, 


1 Для этого разработана формальная техника преобразования рекурсивных 
алгоритмов в итерационные. — Примеч. науч. ред. 
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"Тһіпдѕ І ѕћоџ1а һауе раскей` => ипдет, 
ріп => фѕкіррег біп, 
}; 


Обратите внимание, что здесь у нас четыре элемента: три файла и чет- 
вертый элемент біп, значение которого не равно ипде{ – это ссылка на 
хеш, созданный ранее и описывающий каталог ріп Шкипера. Именно 
так выглядят подкаталоги в нашей структуре данных. Если значение 
элемента хеша равно ипдеф, значит, это файл, но если значением эле- 
мента является ссылка на хеш, то это вложенный подкаталог, в кото- 
ром могут находиться другие файлы и подкаталоги. Разумеется, два 
определения, приведенные выше, можно объединить: 


ту Фѕкіррег һоте = { 
°. СЗПГС” => ипаеР, 
Р]1еазе_гезсие_из. рат => ипаеТ, 
Тћіпоѕ І ѕћои1а һауе раскеа => ипает, 


ріп => { 
пауіда+е => ипде#, 
015сір1іпе_0і11ідап => ипаеф, 
ваї => џпде#, 


}; 
Теперь иерархическая природа данных стала более наглядной. 


Очевидно, описывать такие структуры данных вручную дело не из лег- 
ких. Поэтому лучше создать для этой цели подпрограммы. Попробуем 
написать подпрограмму, которая будет возвращать ипіеѓ, если задан- 
ное имя в файловой системе является файлом, и ссылку на хеш с со- 
держимым каталога, если заданное имя является каталогом. Базовый 
случай, когда мы встречаем файл, самый простой в реализации, поэто- 
му начнем с него: 


ѕир аата Ғог_раїћ { 
ту Фрай = $1111; 

ЇҒ (-Г Фрай) { 
геїигп ипаег 
} 
1! (-9 Фран) { 


} 


магп “Имя ФраЕН не является ни файлом, ни каталогом\п” 
гетигп ипает; 


} 


Если эта подпрограмма будет вызвана для файла . сэйгс в домашнем ка- 
талоге Шкипера, она вернет значение ипіе?, показывая, что это файл. 


Теперь перейдем к той части подпрограммы, которая обрабатывает под- 
каталоги. В первую очередь необходимо создать хеш. Затем для каждо- 
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го из элементов хеша рекурсивным вызовом подпрограммы определя- 
ются их значения: 


ѕир адата Ғог_раїћ { 
ту Фраһ = $1111; 
1Ё (-Е $раїһ ог -1 Фрафй) { # файлы или символические ссылки 
геїигп ипаде? 
} 
і? (-9 Фрай) { 
ту %а1гесфогу 
орепаіг РАТН, Фраїћ ог діе "Невозможно открыть фраїћ: $!”; 
ту @патеѕ = геададіг РАТН 
с1Іоѕедіг РАТН 
Тог ту Фпаме (@патез) { 
пехі і# $пате ед `'.` ог Фпате ед '..'; 
$Ч1гестогу{Фпаме} = дата Ғог раїћ("$раїћ/фпате"); 


} 


гефигп \%91гестогу; 


} 
магп "Имя Фрафн не является ни файлом, ни каталогом\п” 
гефигп ипае?; 


} 


Базовыми случаями в этом рекурсивном алгоритме являются файлы 
и символические ссылки. Этот алгоритм не смог бы корректно воссоз- 
дать структуру файловой системы, если бы следовал за символически- 
ми ссылками на каталоги, а также если бы ссылки были жесткими, 
потому что мог бы попасть в бесконечный цикл, если бы символиче- 
ская ссылка указывала на каталог, в котором она находится.! Этот ал- 
горитм также оказался бы бессильным перед файловой системой с не- 
корректной структурой, например когда каталоги образуют не древо- 
видную, а циклическую структуру. Хотя ошибки в структуре файло- 
вой системы встречаются не так часто, но вообще говоря, рекурсивные 
алгоритмы весьма чувствительны к любым нарушениям в данных 
с рекурсивной организацией. 


Значение каждого элемента каталога определяется с помощью рекур- 
сивного вызова подпрограммы йаїа_#ог_раїћ. Для файлов это будет зна- 
чение џпіе#. Когда возвращается ссылка на хеш, она превращается 
в ссылку на анонимный хеш, поскольку после выхода из подпрограм- 
мы имя хеша выйдет из области видимости. (Сами данные при этом не 
изменяются, зато изменяется число способов, которыми к ним можно 
обратиться.) 


1 Каждый из нас в свое время пытался сделать нечто подобное, а потом му- 
чился в поисках ответа на вопрос, почему программа зациклилась. Как бы 
то ни было, но когда с этой проблемой мы столкнулись во второй раз, это 
уже не было нашей ошибкой, а в третий раз это была всего лишь досадная 
случайность. Это наш опыт, и мы хотим поделиться им. 
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Если в каталоге будет обнаружен вложенный подкаталог, рекурсив- 
ный вызов подпрограммы извлечет содержимое каталога с помощью 
геадаіг и вернет ссылку на хеш, которая будет вставлена в хеш, соз- 
данный вызывающей подпрограммой. 


На первый взгляд рекурсивный алгоритм может показаться чем-то 
мистическим, но если пройтись по нему более внимательно, мистика 
исчезнет. Проверим результаты работы подпрограммы, передав ей 
имя каталога . (текущий каталог): 


иѕе Вафа: : Рритрег; 
ргіп Витрег (аата Рог _раїћ(`. ')); 


Совершенно очевидно, что результаты будут выглядеть гораздо инте- 
реснее, если каталог содержит вложенные подкаталоги. 


Отображение данных 
с рекурсивной организацией 


Подпрограмма Витрег модуля Пата: :Рипрег выводит данные в достаточ- 
но удобочитаемом формате, но как быть, если нам необходимо будет 
вывести данные в несколько ином формате? Можно написать свою 
подпрограмму. Как и в случае создания данных с рекурсивной органи- 
зацией, подпрограмма, которая выводит эти данные, обычно тоже ре- 
курсивная. 


Чтобы вывести данные, нам необходимо знать имя каталога, представ- 
ляющего вершину дерева, поскольку его имя не хранится в самой 
структуре: 


зи аитр_дафа_Тог_раеНн { 
ту Фрай = $1111; 
ту $да+а = ѕһі?+; 


ЇР (пої де?іпеа $дафа) { # обычный файл 
ргіп "Фраїћ\п”; 
гефигп; 


} 


В случае с простым файлом мы выводим его полное имя. Когда $дата 
представляет ссылку на хеш, мы должны обойти все его ключи и вы- 
вести их значения: 


зи аитр_дафа_Тог_раеНн { 


ту Фрай = $1111; 
ту Фда+а = ѕһі?+; 


ЇР (пої де?іпеа $дафа) { # обычный файл 
ргіп "Фраїћ\п”; 
гефигп; 
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ту %0і гесіогу = %$дажа; 
Тог (ѕогі Кеуз %0ігесїогу) { 
аитр_дата_Рог_ра+ћ("Фраїћ/ф_", $91гесфогу{$_}); 
} 


Мы передаем подпрограмме полный путь к каждому элементу катало- 
га, полученный в результате объединения имени вмещающего катало- 
га с именем текущего элемента, и указатель, содержащий значение ип- 
Че? для обычного файла или ссылку на хеш в случае вложенного под- 
каталога. Результаты можно увидеть, запустив команду: 


Фитр_Чафа_Тог_раЕН(°.‘, дата Ғог раїћ(`. ')); 


Опять же результаты будут выглядеть гораздо интереснее, если ката- 
лог будет содержать вложенные подкаталоги, а полученный вывод бу- 
дет напоминать результаты работы команды: 


Ғіпа . -ргіпї 


запущенной из командной оболочки. 


Упражнения 


Ответы на эти вопросы вы найдете в приложении А в разделе «Ответы 
к главе 9». 


Упражнение 1 [15 мин] 


Элементарная сортировка элементов каталога /ріп по их размерам мо- 
жет быть выполнена с помощью оператора 0100: 


ту @ѕогіеа = ѕогі { -ѕ Фа <=> -ѕ $0 } 9106 "/ріп/*"; 
Перепишите этот пример с применением преобразования Шварца. 


Если в вашем каталоге /ріп недостаточно большое число файлов, скорее 
всего вы пользуетесь операционной системой, отличной от ОМІХ. В этом 
случае передайте оператору 0100 имя какого-либо другого каталога. 


Упражнение 2 [15 мин] 


Ознакомьтесь с описанием модуля Вепсһтагк, входящего в состав дист- 
рибутива Ре!1. Напишите программу, с помощью которой можно было 
бы ответить на вопрос: «Насколько эффективнее оказалась реализация 
примера из первого упражнения на основе преобразования Шварца?» 


Упражнение 3 [10 мин] 


С помощью алгоритма преобразования Шварца прочитайте список 
слов и отсортируйте их в алфавитном порядке. При этом не учитыва- 
ются регистры символов и знаки пунктуации. Подсказка: обратите 
внимание на следующий пример, который может оказаться полезным: 
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ту $ѕїгіпо = 'Мэри-Энн’ 

фәігіпо =” Ёг/А-Я/а-я/; # перевести символы в нижний регистр 
фәігіпо =” 1г/а-я//са; # удалить все символы вне диапазона а-я 
ргіпі $$31г11п90; # выведет “мэриэнн” 


Программа не должна изменять исходные данные! Если на вход пода- 
ются имена Профессор и шкипер, они должны выводиться точно в том ви- 
де, в каком были поданы на вход (в том же порядке с учетом регистра 
символов). 


Упражнение 4 [20 мин] 


Измените подпрограмму рекурсивного вывода содержимого каталога 
так, чтобы имена вложенных каталогов отображались с отступами. 
Пустые каталоги должны отображаться как: 


ѕапараг, пустой каталог 


а непустые каталоги должны выводиться со всем своим содержимым, 
с отступом в два пробела: 


и55_тіппом, міїћ сопфепт$: 

апсћог 

ргокеп_гайіо 

да11еу, міїћһ сопїепїѕ: 
сарфа1пт_сгипсй_сегеа1 
да11оп оғ ті1к 
Сипа_11$И_запам1 сп 
11ғе ргеѕегуегѕ 
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В этой главе рассказано, как поделить программу на отдельные блоки, 
а также о некоторых трудностях, возникающих при объединении час- 
тей в одну программу, например когда отдельные блоки создаются раз- 
ными разработчиками. 


Ликвидация повторяющихся участков 
программного кода 


Шкипером было написано множество программ, имеющих целью обес- 
печить возможность навигации по всем известным портам, куда захо- 
дил «Мшпом». Он обнаружил, что в каждой его программе участвует 
одна и та же подпрограмма: 


зиб фигп_фомага_пеа91тд { 

у $пем_Пеад1пд = $11; 

у $сиггеп*_ пеад1пд = сиггеп*_пеа91п9( ); 

ри1пЕ "Текущий курс ”, Фсиггепї ћеааіпо, ”.\п”; 
ргіпЕ "Требуемый курс $пем_ һеадіпо "; 

у $аігестіоп = ‘право’; 

у $Тигп = ($пем һеадіпд - Фсиггепї һеадіпд) % 360; 
і? ($Еигп > 180) { # поворот влево будет короче 
Фигп = 360 - Фиги; 

дігесїіоп = ‘лево’; 


} 


ргіпі ", фдігесїіоп руля на $+игп градусов. \п”; 


} 


Данная подпрограмма вычисляет кратчайший угол поворота от теку- 
щего курса корабля (возвращается подпрограммой сиггепі_һеадіпо()) 
до требуемого (передается подпрограмме в виде первого аргумента). 
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Первую строку подпрограммы можно было бы заменить: 
пу ($%пем һеадіпд) = @; 


Это самый распространенный способ извлечения аргумента. В любом 
случае первый аргумент записывается в переменную $пем_Пеа91тд. Од- 
нако первый способ, при котором элемент удаляется из @_, имеет свои 
преимущества, в чем мы скоро убедимся. Поэтому будем придержи- 
ваться первого способа разбора входных аргументов. А сейчас вернем- 
ся к обсуждаемой теме... 


Написав с десяток программ, где используется эта подпрограмма, 
Шкипер пришел к мнению, что она выводит совершенно бессмыслен- 
ные сообщения, например когда корабль уже идет требуемым курсом 
(или просто дрейфует в нужном направлении). В конце концов, если 
предположить, что в настоящий момент корабль идет курсом 234° 
и требуемый курс также составляет 284°, то подпрограмма выводит: 


Текущий курс 234. 
Требуемый курс 234, право руля на 0 градусов 


Эдак кто угодно устанет! Шкипер решил исправить этот недостаток, 
добавив проверку величины угла поворота на равенство нулю: 


зиб фигп_фомага_пеа91тд { 

ту Фпем һеадіпод = ѕһіғї; 

ту Фсиггепі һеадіпо = сиггепі һеадіпо( ); 

ргіпі "Текущий курс ", $сиггепт_пеад1тд, ".\п” 

ту Ф0ігесїіоп = ‘право’ 

ту Ф$Еигп = ($пем һеааіпо - Ф$сиггепі һеадіпо) % 360; 

ип16ѕѕ ($+игп) { 
ргіпі "Так держать (отличная работа! ).\п” 
гефигп; 

} 

ргіп "Требуемый курс $пем_пеад1по “; 

іР (Фигп > 180) { # поворот влево будет короче 
фФеигп = 360 - $Тигп 
фаігесїіоп = ‘лево’ 

} 

ргіпі ", фаігесїіоп руля на $Фигп градусов. \п” 


} 


Отлично. Новая подпрограмма замечательно работает в текущей про- 
грамме навигации. Но, как мы уже отмечали, эта подпрограмма встав- 
лена и в другие программы, которые продолжат действовать Шкиперу 
на нервы своими бессмысленными сообщениями. 


Шкиперу надо придумать такой способ, чтобы каждая из подпрограмм 
существовала в единственном экземпляре и совместно могла бы ис- 
пользоваться несколькими программами. Как обычно, Рег| позволяет 
достичь этого несколькими способами. 
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Вставка программного кода с помощью е\ма! 


Шкипер сможет сэкономить дисковое пространство (и клетки своего 
серого вещества), поместив определение подпрограммы т игп_фомага_пе- 
адіпо в отдельный файл. Допустим, что Шкипер выявил полдюжины 
подпрограмм общего пользования, связанных с управлением корабля, 
которые используются, если не во всех, то, по крайней мере, в боль- 
шинстве написанных им программ. Он может перенести их в отдель- 
ный файл с именем палваНоп.рт, где будут находиться только необ- 
ходимые подпрограммы. 


Но как после этого сообщить Рег] о том, что подпрограммы находятся 
в другом файле? Самый сложный способ заключается в использовании 
функции е\уа1, о которой мы уже говорили в главе 2. 


зиб 1оаа соттоп _ѕиргои+іпеѕ { 
ореп МОВЕ СОВЕ, 'пауідатіоп. рт' ог іе "пауіда+іоп. рт: $! "; 
ипае? $/; # прочитать файл целиком 
ту Фтоге соде = <МОВЕ СОрЕ>; 
с1оѕе МОВЕ СОрЕ; 
ема1 фтоге_соде; 
діе $@ 11 $6; 
} 


Рег! считывает содержимое файла пауідаїіоп. рп в переменную Фтоге_ 
соде. После этого текст, содержащийся в переменной, интерпретирует- 
ся с помощью функции е\уа1. Все лексические переменные в $поге_сойе 
останутся локальными по отношению к интерпретируемому блоку 
программного кода.! Если в процессе интерпретации будут обнаруже- 
ны какие-либо синтаксические ошибки, Рег] установит значение пере- 
менной $0 и аварийно завершит работу программы с соответствующим 
сообщением. 


Теперь вместо того чтобы вставлять несколько десятков строк подпро- 
грамм общего пользования в каждую программу, достаточно вставить 
единственную подпрограмму в каждый из файлов. 


Однако такой подход нельзя назвать оптимальным, если нам придется 
продолжать решать проблему данным способом. К счастью, в арсенале 
Рег1 имеются методы, которые помогут решить эту проблему. 


С помощью оператора 4о 


Шкипер переместил подпрограммы общего пользования в отдельный 
файл пауідатіоп. рп. Если теперь Шкипер вставит строки: 


1 Как это ни странно, переменная $тоге_соде также будет видна из этого бло- 
ка кода, однако это едва ли имеет какое-то практическое значение с точки 
зрения изменения программного кода в ходе интерпретации. 
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90 '‘пауідаїіоп. рт’; 
діе $@ 11 $6; 


во все свои программы, это будет равноценно вызову функции еуа1 для 
содержимого файла в данной точке программы.! 


Таким образом, оператор йо действует так, как если бы программный 
код из файла пауідатіоп. рт был вставлен в текущую программу. Прав- 
да, в виде отдельного блока со своей областью видимости, поэтому лек- 
сические переменные (переменные, объявленные со спецификатором 
пу) и большинство директив (таких как изе ѕїгісї), объявленные в под- 
ключаемом файле, не видны в главной программе. 


Теперь Шкипер может спокойно поддерживать единственную копию 
подпрограмм общего пользования без необходимости копировать все 
изменения и дополнения в множество разнообразных программ, кото- 
рые были написаны и используются им. На рис. 10.1 показано, как 
можно работать с такой общей библиотекой. 


Разумеется, такой подход требует соблюдения определенных соглаше- 
ний, поскольку изменение интерфейса той или иной подпрограммы 


#1 /изг/61п/рег1 
рне Әр По "пауідатіоп. рт"; 
: 91е $@ і? $0; 
игп_Хомагӣѕ һеадіпо($пемһеадіпо); 
А 
#1 /изг/61п/рег1 Н #1 /иѕг/Біп/рег1 
БЕ до "пауідатіоп. рт"; Н Әр По "пауідаїіоп. рт"; 
91е $@ і? $6; : : діе $0 і? $0; 
+игп_ёомагӣѕ_һеадіпо($пемһеадіпд); : : Тигп_фомагдз_пеа91п9 ($пемпеа91п9); 
: памідайоп.рт і 
ПТЕТИТТН >. 
#1 /изг/61п/рег1 : #1 /иѕг/біп/рег1 
н Яо "пауідатіоп. рт”; 1-р бо "пауідатіоп. рт"; 
аіе $0 і? $а; діе $0 і? $6; 
+игп_еомагӣѕ_һеадіпо(фпемһеадіпд); Тигп_сомагаѕ_һеадіпо($пемћеайіпд); 


Рис. 10.1. Файл паоіваііоп.рт задействован во всех программах, 
написанных Шкипером 


1 Данный способ не влияет на @Т\С, %Т№С и не обрабатывает ситуацию отсутст- 
вия файла, о чем мы вскоре поговорим. 
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может оказать отрицательное влияние сразу на многие программы.!1 
Теперь Шкипер должен с особым тщанием проработать строение про- 
граммных компонентов многократного пользования и как следует про- 
думать модульную архитектуру. Будем считать, что Шкипер приобрел 
некоторый опыт, но мы еще вернемся к этой теме в следующих главах. 


После того как программный код будет оформлен в виде отдельного 
файла, им смогут воспользоваться другие программисты, и наоборот. 
Если Джиллиган напишет подпрограмму д9гор_апспог() и поместит ее 
в файл гор апсһог. рп, Шкипер сможет использовать ее, подключив 
библиотеку Джиллигана: 


до `агор апсһог. рт”; 
91е $@ і? $6; 


гор апсһог( ) і? аї аоск( ) ог іп рогї( ); 


Такая организация программного кода упрощает его обслуживание 
и облегчает взаимодействие между программистами. 


Если программный код в файлах .рп содержит только определения 
подпрограмм, то проще всего, пожалуй, загружать эти подпрограммы 
с помощью оператора 00. 


Теперь вернемся на секунду к библиотеке дгор_апспог. рт и представим, 
что Шкипер пишет программу, которая не только вычисляет измене- 
ние курса, но и «бросает якорь»: 


90 `агор апсһог. рт”; 
діе $@ і? $6; 
ао '‘пауідаїіоп. рт’; 
діе $@ і? $6; 


Фигп_Томага_Неа91п9(90); 


гор апсһог( ) і? аЕ аоск( ); 


Все работает просто замечательно. Подпрограммы, описанные в обеих 
библиотеках, стали доступны основной программе. 


С помощью директивы гедите 


Предположим, что подпрограммы из пауідаііоп. рт также обращаются 
к подпрограмме, описанной в 9гор_апспог.рм. Сначала Рег] выполнит 
чтение файла прямо из программы, а затем еще раз во время анализа 
пакета пауідаіоп. Вследствие этого произойдет ненужное нам переоп- 
ределение подпрограммы гор апсһог(). Хуже того, если при запуске 


1 В последующих главах мы покажем, как создаются тесты, предназначен- 
ные для проверки программного кода общего пользования. 
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программы будет разрешен вывод предупреждений,! то Рег| сообщит 
о том, что функция была переопределена, даже если это одно и то же 
определение. 


Таким образом, нам необходим некий механизм, который следил бы 
за тем, какие файлы были загружены, чтобы не загружать их повтор- 
но. В языке Рег для этих целей предусмотрена директива геди1ге. 
Предыдущий программный код поменяйте на следующий: 


геди1ге ‘дгор_апспог. рт’; 
гедиіге `пауідаііоп. рт”; 


Директива гедиіге будет следить за всеми загружаемыми файлами.? 
Загрузив и обработав файл один раз, Рег] будет игнорировать все по- 
следующие попытки загрузить его с помощью директивы гедиіге. Это 
означает, что даже если в файле пауідаїіоп. рп будет стоять директива 
гедиіге “дгор_апсог. рп", Ре! загрузит файл ігор апсог. рт только один 
раз и избавит нас от надоедливых предупреждений о повторном пере- 
определении подпрограмм (рис. 10.2). И самое главное — это поможет 
нам сэкономить время, затрачиваемое на повторную загрузку файла 
и анализ его содержимого. 


гор апсһог.рт 


$46 
ѕир 
геди1ге "агор_апсһог. рт"; 
А ѕир 
Н 1. 
гедиіге "пауіда+е. рт"; 
памідаїе.рт 


геди1ге "агор_апсһог. рт"; | Е 


Рис. 10.2. Как только Ре] загрузит файл ігор апсһог.рт, он будет 
игнорировать другие попытки загрузить его 


Кроме того, директива гедиіге обладает двумя дополнительными осо- 
бенностями: 


• Если в процессе интерпретации файла, загружаемого с помощью ди- 
рективы гедиіге, будут обнаружены синтаксические ошибки, Рег 


1 Ну, вы-то разрешаете вывод предупреждений? Вывод предупреждений 
включается с помощью -м или магп1пд$. 

2 С помощью хеша %Т\С, о чем говорится в описании директивы геди1ге 
в справочнике рег1 Гипс. 
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аварийно завершит работу программы, что избавляет от необходи- 
мости вставлять дополнительную проверку 01е $@ і? $0. 


® Последнее выражение в файле, которое вычисляется в процессе ин- 
терпретации, должно возвращать значение «истина». 


Из-за второго пункта большинство файлов, подключаемых с помощью 
директивы гедиіге, содержат в конце странную строку с числом 1. Тем 
самым гарантируется, что последним вычисленным выражением в фай- 
ле будет «истина». Постарайтесь следовать этой устоявшейся традиции. 


Изначально значение «истина» представляло собой способ сообщить 
вызывающей программе, что программный код был благополучно про- 
анализирован и что он не содержит ошибок. Однако подавляющее боль- 
шинство программистов настолько привыкло к стратегии (іе ії ..., 
что стратегия «значение последнего выражения — «ложь» ныне рас- 
сматривается как историческое недоразумение. 


гедиіге и @МС 


До сих пор мы ничего не говорили о структуре каталогов, где размеща- 
ются файлы с основной программой и библиотеками. Дело в том, что 
в простейшем случае, когда программа расположена там же, где и под- 
ключаемые библиотеки, и запускается оттуда же, «все работает и так». 


Ситуация усложняется, если библиотеки размещаются в другом ката- 
логе. Фактически РегІ ищет файлы библиотек в предопределенном спи- 
ске каталогов поиска — примерно так же, как командная оболочка про- 
изводит поиск файлов с помощью переменной окружения РАТН. Теку- 
щий каталог (в ОС ОМІХ это каталог с именем . (точка)) является одним 
из элементов в списке каталогов поиска. Таким образом, если библиоте- 
ки находятся в текущем каталоге, все будет работать без проблем. 


Список каталогов поиска – это список элементов в специальном масси- 
ве @Т\С, о чем мы уже коротко упоминали в главе 3. По умолчанию мас- 
сив содержит в себе имя текущего каталога и еще примерно с полдесят- 
ка каталогов, которые были определены во время сборки Ре!1. Введя ко- 
манду регі -\, в последних нескольких строках вы получите список ка- 
талогов. А команда позволит получить только список каталогов @1\С.1 


рег1 -1е 'ргіпі Гог @ТМС' 


Если вы не являетесь тем человеком, который несет ответственность 
за работоспособность Рег1, то скорее всего не будете иметь права запи- 
си в эти каталоги, за исключением текущего. В этом случае все эти ка- 
талоги должны быть доступны вам для записи. В них Ре! ищет биб- 
лиотеки и модули, общие для всей системы. 


1 В командной строке Міпаоуѕ одинарные кавычки следует заменить двой- 
ными. 
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Дополнение списка @МС 


Вполне вероятно, что мы не сможем установить дополнительные моду- 
ли в один из предопределенных каталогов из списка @1\С. Но у нас есть 
возможность дополнить этот список своими каталогами до обращения 
к директиве гедиіге, что позволит Рег1 произвести поиск и в наших ка- 
талогах. Массив @Т№\С — это обычный массив; поэтому если Шкипер по- 
желает добавить в него свой каталог, он может вставить в программу, 
например, такую строку: 


ипзп1 ЕЕ @ІМС, '/поме/зКкаррег/рег1-116'; 


Теперь к списку каталогов поиска в дополнение к предопределенным 
будет добавлен каталог с библиотеками Шкипера. Поиск в первую оче- 
редь выполняется в нем, поскольку это первый элемент в массиве @ТМС. 
Если каталог добавляется к списку оператором ипѕћі?ї, а не риѕћ, Рег1 
автоматически устраняет возможные конфликты имен между файла- 
ми Шкипера и библиотеками, установленными в системе, отдавая при- 
оритет библиотекам Шкипера. 


Обычно список каталогов дополняется еще до того, как будет сделано 
что-либо еще, поэтому данное действие, как правило, помещается внут- 
ри блока ВЕСІМ и исполняется на этапе компиляции, то есть до того, как 
на этапе исполнения отработает какая-либо директива гедиіге. В про- 
тивном случае Ре!| исполнит операции в той последовательности, в ка- 
кой они расположены в тексте программы, и тогда надо убедиться, что 
оператор ипѕћі?і предшествует директиве гедиіге. 


ВЕСТМ { 
ип$Н1 РЕ @ІМС, '/Поте/зК1ррег/рег1-116’; 
}; 


Этот вариант дополнения списка @1№С встречается чаще других, хотя 
Рег1 предоставляет специальную директиву изе 116 для этих целей, ко- 
торая исполняется на этапе компиляции и поэтому полностью соответ- 
ствует нашим ожиданиям. Она вставляет имя заданного каталога в на- 
чало списка @1\С точно так же, как это происходило в предыдущем 
примере. 


иѕе 116 дм(/һоте/ѕкіррег/рег1-110); 


Однако путь к требуемому каталогу не всегда известен заранее. В пре- 
дыдущих примерах мы жестко задавали имена каталогов. Но если мы 
собираемся устанавливать свои программы на другие машины, мы не 
можем быть заранее уверены в том, что имена каталогов с библиотека- 
ми будут в точности совпадать с нашими. Преодолеть это препятствие 
нам поможет модуль ҒіпіВіп, поставляемый с дистрибутивом Рег. Он 
возвращает полный путь к каталогу со сценарием, посредством кото- 
рого мы затем будем добавлять каталоги поиска в список. 


иѕе РапаВ1т дм(%Віп); 
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Теперь переменная $Віп будет содержать путь к каталогу с нашим сце- 
нарием. Если наши библиотеки находятся в этом же каталоге, то сле- 
дующая строка программы имеет такой вид: 


иѕе 116 $Віп; 


Если библиотеки находятся во вложенных подкаталогах каталога со 
сценарием, то мы можем объединить компоненты пути к этим катало- 
гам. 


иѕе 116 "$Віп/110"; # в подкаталоге 
иѕе 116 "$Віп/../110"; # на один уровень выше, а затем в каталог 116 


Таким образом, если нам известны пути к каталогам с библиотеками, 
хотя бы относительно каталога со сценарием, то мы уже можем отка- 
заться от жестко заданных имен каталогов. Такой подход делает сце- 
нарии более переносимыми. 


Дополнение списка @МС 
с помощью переменной РЕКЕ5ИВ 


Шкипер хочет подключить библиотеки к своим программам, но для 
этого ему придется отредактировать все свои программы. Это дело мо- 
жет оказаться довольно трудоемким, но всего этого можно избежать, 
если записать список требуемых каталогов в переменную окружения 
РЕВЕ51ТВ. Например, в С ѕћеП это делается так: 


ѕетепу РЕНЕ5ЕТВ /һоте/ѕкіррег/рег1-11р 
А так в оболочке Борна и аналогичных: 
РЕЋІ511В=/ћоте/ѕкіррег/рег1-11р;, ехрогі РЕВІ51В 


Шкипер может сделать это один раз и забыть обо всех неприятностях. 
Однако если Джиллиган не выполнит те же самые настройки у себя, 
он не сможет пользоваться программами! Несмотря на все удобства, 
которые дает переменная окружения РЕВІ5118, мы не можем полагать- 
ся на нее, если собираемся работать с одними и теми же программами 
совместно с другими пользователями. (Будет очень сложно заставить 
всех программистов добавить в свое окружение переменную РЕВІ 5118. 
Мы уже пробовали это сделать.) 


Переменная РЕВЕ51ТВ может содержать сразу несколько каталогов, для 
этого они должны отделяться друг от друга символом двоеточия. При 
запуске Рег1 отыщет эту переменную и добавит все каталоги, содержа- 
щиеся в ней, в список @1МС. 


Переменная РЕҢІ 5118 может быть создана системным администратором 
в одном из сценариев начальной загрузки системы, но такой подход не 
приветствуется. Назначение переменной РЕВІ 5118 состоит в том, чтобы 
дать рядовым пользователям возможность расширить список катало- 
гов поиска. Если системный администратор пожелает добавить какие- 
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либо каталоги в список по умолчанию, он может просто пересобрать 
и переустановить Рег с необходимыми настройками. 


Дополнение списка ©@МС с помощью ключа -1 


Если Джиллигану будет заранее известно, что в одной из программ 
Шкипера отсутствует указание на требуемый каталог, он сможет либо 
добавить полный путь к этому каталогу в переменную РЕВІ511В, либо 
вызвать Рег] с одним или более ключами -І. Например, команда, вы- 
зывающая программу Шкипера 9е*_из_поте, может выглядеть так: 


рег1 -І/һоте/ѕкіррег/рег1-110 /һоте/ѕКкіррег/бріп/деї иѕ һоте 


Очевидно, что Джиллигану будет гораздо проще, если пути к дополни- 
тельным библиотекам определены в тексте самой программы. Но ино- 
гда без ключа -І не обойтись.! Этот прием эффективен, даже если про- 
граммы Шкипера будут недоступны Джиллигану для записи. Он по- 
прежнему сможет читать эти файлы, например чтобы опробовать со- 
вместимость новой версии своей библиотеки с программами Шкипера. 


Конфликт имен 


Иногда Шкиперу не удается избежать столкновения корабля с остро- 
вом, причем эти столкновения порой обусловлены простым совпадени- 
ем имен подпрограмм. Предположим, что Шкипер сохранил все свои 
расчудесные и полезные подпрограммы в файле пауідаїіоп. рт, а Джил- 
лиган написал свой собственный навигационный пакет, куда включил 
подпрограмму һеаа їомага рогі: 


#1 /иѕг/ріп/рег1 
гедиіге `пауідаііоп. рт’; 


зиб Жигп_ +омага рогі { 
+игп_ёомага_һеадіпо(сотрите_ һеааіпо о іѕапа( )); 


} 


зи сотри+е һеадіпо_+о_іѕ1іапа { 
тело подпрограммы .. 


остальной программный код .. 


После этого Джиллиган отладил свою программу (возможно, не без по- 
мощи умнейшего человека, которого мы назовем Профессором), и у не- 
го все работало прекрасно. 


1 Операция расширения списка @1\С с помощью переменной РЕАІ511В или 
ключа командной строки -І автоматически добавляет в этот список все вло- 
женные подкаталоги. Это упрощает установку дополнительных модулей, 
имена каталогов которых несут в себе информацию о номере версии или 
сведения о конкретной архитектуре, например объектные модули, напи- 
санные на языке С. 
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Однако теперь Шкипер решил добавить в библиотеку пауідаїіоп. рт под- 
программу іигп_іомага_ рогі, которая выполняет поворот влево на 45° 
(на жаргоне означает «курс домой»). 


После этого программа Джиллигана будет терпеть постоянные неуда- 
чи, поскольку при попытке взять курс на порт она будет заставлять 
корабль кружиться на месте! Беда в том, что Рег| скомпилирует снача- 
ла подпрограмму іигп_іомага рогі Джиллигана, а затем уже на этапе 
исполнения выполнит директиву гедиіге и заместит ее подпрограммой 
фигп_фомага_рогт Шкипера. Конечно, если бы Джиллиган разрешил вы- 
вод предупреждений, он смог бы заметить эту ошибку, но почему он 
должен принимать это во внимание? 


Дело в том, что под именем іигп_іомагі рогі Джиллиган подразумевал 
«баги іоуага ће рог+ оп ће 131ап4 - взять курс на порт острова», тогда 
как Шкипер имел ввиду «баги іоуага һе Іеї — лево руля». Как разре- 
шить это затруднение? 


Один из способов заключается в том, чтобы Шкипер добавил префикс 
пауідаіоп_ к имени каждой подпрограммы в своей библиотеки. В этом 
случае программа Джиллигана приобрела бы такой вид: 


#1 /изг/61п/рег1 
гедиіге ‘пау1да опт. рт’; 


зиб фигп_фомага_рогЕ { 
пауіда+іоп_ +игп_ +омага_ һеадіпо(сотрите_ һеааіпо о іѕіапа( )); 


} 


зи сотри+е һеадіпо_ о іѕ1апа { 
тело подпрограммы .. 


остальной программный код .. 


Совершенно очевидно, что функция пауідаііоп_ +игп_+омага_ һеадіпо на- 
ходится в файле пауідатіоп. рп. Этот вариант прекрасно подходит Джил- 
лигану, но очень неудобен для Шкипера, поскольку имена подпро- 
грамм в его библиотеке значительно удлинились: 


ѕир пауідатіоп_ +игп_+омага һеадіпо { 
тело подпрограммы .. 


} 


зиб пауіда+іоп_ +игп_+омага рогі { 
тело подпрограммы .. 


} 
ДЕ; 


Теперь имя каждой скалярной переменной, каждого массива, каждо- 
го хеша и подпрограммы должно иметь префикс пауідатіоп_, чтобы га- 
рантировать отсутствие потенциальных конфликтов имен с библиоте- 
ками других пользователей. Очевидно, что теперь плаванье на корабле 
превратится в муку для старого моряка. Что же делать? 
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Имена пакетов как разделители 
пространств имен 


Все выглядело бы гораздо лучше, если бы в последнем примере можно 
было не добавлять префиксы. Обратимся к пакетам: 


раскаде М№Мауіда+іоп; 


зиб +игп_омага_һеадіпд { 
тело подпрограммы .. 


} 


зиб фигп_фомага_роге { 
тело подпрограммы .. 


} 
1; 


Объявление раскаде в начале файла сообщает Ре!1, что он должен под- 
разумевать наличие префикса №ауідаїіоп:: перед большинством имен 
в файле. Таким образом, программный код, показанный выше, факти- 
чески означает: 


зи М№ауідаїіоп: : шгп Томага һеадіпо { 
тело подпрограммы .. 


} 


зиб М№аујіда+іоп: :+игп_ +омага рогі { 
тело подпрограммы .. 


} 

И 
Теперь, когда Джиллиган соберется воспользоваться этой библиоте- 
кой, он просто должен добавить префикс \№ауідаііоп:: к именам под- 


программ из этой библиотеки и опустить его, если обращается к одно- 
именным подпрограммам из своей библиотеки: 


#1 /изг/61п/рег1 
гедиіге ‘пау1да1оп. рт” 


зиб +игп_+омага рогі { 
Мауідатіоп: :Ёигп_ Томага һеадіпо(сотри+е_ һеадіпо_ +о_іѕіапа( )); 


} 


зи сотрифе_пеа91пд_о_1$1апа { 
тело подпрограммы .. 


остальной программный код. 


Порядок именования пакетов подчиняется тем же правилам, что и име- 
на переменных: они могут содержать алфавитно-цифровые символы 
и символ подчеркивания, но не могут начинаться с цифровых симво- 
лов. Кроме того, по причинам, которые описаны в документе регітой1ір, 
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имена пакетов должны начинаться с заглавного символа и не повто- 
рять имена пакетов, включенных в СРАМ или в базовый дистрибутив 
Рег. Названия пакетов могут также состоять из нескольких имен, раз- 
деленных двумя двоеточиями, например Міппом: :№Мауідаїіоп или Міп- 
пом: : ооа: : ЅТогаде. 


Практически все имена скаляров, массивов, хешей, подпрограмм и де- 
скрипторов файлов! предваряются именем пакета, если имя не содер- 
жит один или более маркеров в виде двойного двоеточия. 


Таким образом, внутри пакета пауідаїіоп. рп мы можем использовать 
следующие переменные:? 


раскаде М№Мауіда+іоп; 
@һотерогі = (21.283, - 157.842); 


зиб +игп_+омага рогі { 
программный код .. 


} 


Мы можем обратиться к переменной @потерог{ из основной програм- 
мы, добавив к ее имени название пакета: 


@дез{1па{1оп = @Мау1дат1 от: : ПотерогЕ; 


Если считать, что все имена, встречающиеся в пакете, должны предва- 
ряться именем самого пакета, тогда что можно сказать по поводу имен 
в основной программе? Да, они тоже находятся в пакете с именем паіп, 
как если бы в начале файла стояла директива раскаде паіп. Таким обра- 
зом, чтобы уберечь Джиллигана от использования, скажем, М№а\у19а{1- 
оп: : Еигп_фомага_пеа91п9, в файл пауіда+іоп. рп можно вставить такое оп- 
ределение: 


зиб ма1п: :+игп_ +омага_һеадіпо { 
тело подпрограммы .. 


} 


Теперь подпрограмма будет считаться определенной в основной про- 
грамме - в пакете паіп, а не в пакете \ауідаііоп. Это далеко не самое 
лучшее решение (его мы продемонстрируем в главе 15, когда будем го- 
ворить о модуле Ехрогтег); во всяком случае в пакете паіп нет ничего 
особенного по сравнению с другими пакетами. 


Практически то же самое мы делали в главе 3, когда импортировали 
имена в наши сценарии, правда, тогда мы не раскрывали всей подно- 
готной. Тогда мы импортировали имена подпрограмм и переменных 
в текущий пакет (тот же самый пакет паіп). Благодаря этому в теку- 


1 За исключением лексических переменных, в чем вы скоро убедитесь. 

2 Маленькое примечание: в координатах 21,283 градуса северной широты 
и 157,842 градуса западной долготы находится вполне реальная пристань, 
где проходили съемки известного телевизионного сериала. 
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щем пакете были доступны только импортированные имена, если мы 
не указывали полное имя, включающее имя пакета. Более подробно об 
этом мы поговорим немного позже. 


Область видимости директивы раскаде 


Во всех файлах по умолчанию предполагается наличие директивы 
раскаде паіп; .! Область действия любой директивы раскаде распростра- 
няется до следующей директивы раскаде, если эта директива не нахо- 
дится в фигурных скобках; в противном случае Ре! запоминает имя 
пакета и восстанавливает его, встретив закрывающую фигурную скоб- 
ку. Например: 


раскаде М№Мауіда+іоп; 


{ # начало области видимости блока 
раскаде та1п; # здесь область видимости пакета таіп 


зиб Тигп_фомага_пеа91п9 { # таіп: : +игп_ +омага һеадіпо 
тело подпрограммы .. 


} 


} # конец области видимости блока 
# возврат к области видимости пакета М№ауіда+іоп 


зир Тигп_фомага_рогЕ { # Мауідатіоп: : їигп_ Томага рогї 
тело подпрограммы .. 


} 


Лексическая область видимости пакета определяется так же, как об- 
ласть видимости переменных, объявленных со спецификатором пу. 
Она ограничивается либо областью видимости блока, либо границами 
файла, в котором объявлено имя пакета. 


В большинстве библиотек имеется только одно объявление имени па- 
кета – в самом начале файла. В большинстве программ имя пакета паіп 
не изменяется. Однако вы должны знать, что имя пакета можно вре- 
менно изменить.? 


1 Язык Рей не заставляет объявлять функцию паіп(), в отличие от С. Ре!1 
знает, что в каждом сценарии должно быть такое объявление, и потому 
подразумевает его наличие по умолчанию. 

2 Некоторые имена всегда определены в пакете паіп независимо от текущего 
имени пакета: АНб\, АЯСМОЦТ, ЕМУ, ІМС, 510, ЭТОЕВВ, ЗТОТМ и 5Т0007. Мы всегда 
можем обратиться к имени @1\С, пребывая в полной уверенности, что полу- 
чаем доступ к паіп: :@1№С. Служебные переменные, такие как $_, $@и $!, ли- 
бо все будут лексическими, либо принудительно будут помещены в пакет 
паіп. Таким образом, обращаясь к переменной $., мы никогда не получим 
доступ к переменной $М№ауідатіоп::. по ошибке. 
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Пакеты и лексические переменные 


Лексические переменные (переменные, объявленные со спецификато- 
ром пу) не предваряются именем текущего пакета, поскольку перемен- 
ные пакета всегда глобальные: мы всегда можем обратиться к пере- 
менной пакета, если нам известно ее полное имя. Лексические пере- 
менные обычно временные и доступны только внутри ограниченной 
области программы. Если мы объявляем лексическую переменную 
и затем обращаемся к ней, не указывая имя пакета в качестве префик- 
са, то получаем доступ к лексической переменной. Если же имя пере- 
менной предваряется именем пакета, то мы получаем доступ к гло- 
бальной переменной, а не к лексической. 


Допустим, что одна из подпрограмм в пакете пауідаііоп. рт объявляет 
лексическую переменную @һоперогі. Тогда любое обращение к имени 
@потерог{ будет означать обращение к лексической переменной, а обра- 
щение по полному имени @№ауідаїіоп: : ПотерогЕ с добавлением имени 
пакета будет означать обращение к переменной пакета. 


раскаде М№Мауіда+іоп; 
@һотерогі = (21.283, -157. 842); 


ѕир дет ме_поте { 
ту @һотерогї; 
@һотерогі .. # обращение к лексической переменной 
@Мауідаїіоп: : һотерогі .. # обращение к переменной пакета 


@һоперогі .. # обращение к переменной пакета 


Вполне очевидно, что такая чехарда с именами усложняет понимание 
программного кода, поэтому желательно избегать такого дублирования 
имен. Однако результаты работы такого кода вполне предсказуемы. 


Упражнения 


Ответы на эти вопросы вы найдете в приложении А в разделе «Ответы 
к главе 10». 


Упражнение 1 [25 мин] 


Аборигены острова Угабугу придумали весьма необычные названия 
дней недели и месяцев. Ниже приводится простой, но не очень хорошо 
написанный Джиллиганом программный код. Исправьте его, добавьте 
функцию преобразования названий месяцев и оформите все это в виде 
библиотеки. В качестве дополнительного задания добавьте возмож- 
ность проверки ошибок и подумайте о том, что можно было бы напи- 
сать в документации к получившейся библиотеке. 


@дау = ам(арк дип уап сен поп сеп кир) 
ѕир питрег_+о_дау пате { му фпип = $11 @ ; $дау[$пит]; } 
@топћ = ам(диз под бод род сип уакс лин сен кун физ нап деп); 
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Упражнение 2 [15 мин] 


Напишите программу, которая с помощью вашей библиотеки (см. уп- 
ражнение 1) и нижеследующего программного кода выводила бы сооб- 
щение (например, Сегодня дип, сен 15, 2011, означающее, что сегодня 
понедельник, 15 августа, 2011 года). Подсказка: функция 10са1+іпе 
может возвращать номер дня недели, месяца и года совсем не так, как 
вы ожидаете, поэтому вы должны обратиться к соответствующей до- 
кументации. 


ту(Фѕес, Фтіп, Фһоиг, фидау, Фтоп, Фуеаг, Фидау) = 1оса1їіпте; 
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Введение в объекты 


Методология объектно-ориентированного программирования (ООП) по- 
могает ускорить разработку программ и упрощает их сопровождение за 
счет организации программного кода в виде именованных сущностей. 
Чтобы перейти к работе с объектами, надо немного ближе ознакомиться 
с основополагающими моментами, но потраченное время окупится. 


Преимущества ООП становятся очевидными, когда объем программы 
(включая все внешние библиотеки и модули) превышает М строк про- 
граммного кода. К, сожалению, никто так и не смог точно определить 
значение М, однако для Ре!| эту величину можно считать приблизи- 
тельно равной 1000. Если вся программа умещается в пару сотен строк, 
то применение объектов вряд ли целесообразно. 


Как и ссылки, объекты были добавлены в Рег] тогда, когда в обраще- 
нии уже находилось изрядное количество программ, написанных на 
Рег1 ниже 5 версии. По этой причине перед разработчиками встала за- 
дача не поломать существующий синтаксис языка при введении но- 
вых конструкций. Удивительно, но единственным синтаксическим 
дополнением, которое потребовалось сделать для обеспечения работы 
с объектами, стал вызов метода, о чем мы вскоре поговорим подроб- 
нее. Однако чтобы понять смысл этого дополнения, необходимо про- 
вести некоторые исследования, поэтому продолжим. 


Архитектура объектов Рег! целиком построена на понятиях пакетов, 
подпрограмм и ссылок. Поэтому, если вы начали чтение книги с этой 
главы, пожалуйста, вернитесь назад и начните чтение с начала. Гото- 
вы? Тогда вперед! 


Если бы мы могли говорить на языке зверей... 


Совершенно очевидно, что наши герои, потерпевшие кораблекруше- 
ние, не смогут выжить, питаясь одними кокосовыми орехами и анана- 
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сами. К, счастью, незадолго до их появления на острове здесь потерпе- 
ла кораблекрушение баржа с домашними животными, и наши герои 
получили возможность разводить на острове животных. 


Послушаем голоса всех животных, какие находятся на острове: 


зиб Сом: : зреак { 


ргіпі 


} 


ѕир Ногѕе: 


ргіпі 


} 


зиб опеер: 


ргіпі 


} 


Сом: : зреак 


“Корова: му-у-у-у! \п” 


: реак { 
“Лошадь: иго-го! \п” 


:ѕреак { 
“Овца: бе-е-е-е! \п” 


Ногзе: : зреак 
опеер: : зреак 


В результате получилось: 


Корова: му-у-у-у 
Лошадь: иго-го! 
Овца: бе-е-е-е! 


Ничего сногсшибательного, подпрограммы довольно простые, но каж- 
дая из них находится в отдельном пакете и вызывается с указанием 
полного имени, включающего имя пакета. Теперь попробуем запол- 
нить нашими животными пастбище: 


ѕир Сом: : зреак { 


ргіпі 


} 


ѕир Ногѕе: 


ргіпі 


} 


зиб опеер: 


ргіпі 


} 


"Корова: му-у-у-у! \п” 


:ѕреак { 
“Лошадь: иго-го! \п” 


:ѕреак { 
“Овца: бе-е-е-е! \п” 


ту @разфиге = дм(Сом Сом Ногзе Ѕћеер һеер) 
Ғогеасһ ту ФБеазЕ (@раѕїџге) { 
&{Фреазт. "::зреак”}; # символическая ссылка на подпрограмму 


} 


Результат: 


Корова: му-у-у-у 
Корова: му-у-у-у 
Лошадь: иго-го! 
Овца: бе-е-е-е! 
Овца: бе-е-е-е! 
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Вот это да! Но операция разыменования символической ссылки в теле 
цикла выглядит как-то не очень хорошо. Здесь мы полагались на ре- 
жим по ѕігісі 'ге!з', но для больших программ его рекомендовать 
нельзя.! Для чего он нам понадобился? Мы хотели вызвать подпро- 
граммы, расположенные внутри пакетов, поскольку имя пакета неот- 
делимо от имени подпрограммы. 


Вызов метода с помощью оператора «стрелка» 


Класс - это группа сущностей, обладающих одинаковыми признаками 
и поведением. Пока что будем считать, что запись С1а55->пеіћой описы- 
вает вызов подпрограммы пеїћой из пакета С1а55. Метод – это объектно- 
ориентированная разновидность подпрограммы, и с этого момента вме- 
сто термина «подпрограмма» мы будем употреблять термин «метод» .? 
Это не совсем правильно, но мы продолжим наше движение вперед не- 
большими шагами. Попробуем воспользоваться новым способом вызо- 
ва методов: 


зиб Сом: : зреак { 
ргіпї “Корова: му-у-у-у! \п” 
} 
ѕир Ногѕе: :зреак { 
ргіпї "Лошадь: иго-го! \п” 
} 
зиб ЭПеер: :зреак { 
ргіпї “Овца: бе-е-е-е! \п”" 
} 
Сом->ѕреак 


Ногзе->зреак; 
Ѕһеер->зѕреак; 


В результате мы получим то же самое: 


Корова: му-у-у-у! 

Лошадь: иго-го! 

Овца: бе-е-е-е! 
По-прежнему ничего особенного. Строк столько же, все элементы про- 
граммы постоянные, никаких переменных. Однако теперь части имен 
можно отделить друг от друга: 


1 Все примеры в этой книге представляют собой вполне работоспособный 
программный код, однако некоторые из них нарушают правила, предписы- 
ваемые директивой изе ѕігісі. Сделано это с целью облегчить их понима- 
ние. В конце главы мы покажем, как сделать программный код совмести- 
мым с режимом 5їгісї. 

2 В языке Ре! нет никаких различий между подпрограммами и методами. Обе 
эти конструкции получают список входных аргументов в виде @_, и в обоих 
случаях мы должны стремиться к созданию безошибочного программного 
кода. 
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пу $реаѕї = ‘Сом’; 
фреаѕїі->ѕреак; # вызов метода Сом->зреак 


Вот! Теперь имя пакета отделено от имени подпрограммы, и мы можем 
использовать значение переменной в качестве имени пакета. На этот 
раз программный код будет работать даже в режиме изе ѕігісі ‘ге!з’. 


Перепишем пример с пастбищем, взяв на вооружение оператор «->»: 


ѕир Сом: : зреак { 
ргіпї "Корова: му-у-у-у! \п” 
} 
зиб Ногѕе: :зреак { 
ргіпї “Лошадь: иго-го! \п” 
} 
зиб Ѕһеер: :ѕреак { 
ргіпї “Овца: бе-е-е-е! \п”" 


} 


ту @разфиге = дм(Сом Сом Ногзе Знеер Ѕһеер); 
Ғогеасһ ту ФБеазЕ (@раѕїџге) { 
фреаѕі->ѕреак; 


} 


Теперь все животные мычат, ржут, блеют, и нам удалось избавиться от 
символических ссылок на подпрограммы! 


Но взгляните еще раз на содержимое методов ѕреак, все они имеют оди- 
наковую структуру: оператор ргіпі выводит строку, содержащую на- 
звание животного и произносимый им звук. Один из основных прин- 
ципов ООП заключается в минимизации повторяющихся участков 
программного кода. Если мы пишем некоторый код всего один раз, то 
экономим время. Кроме того, этот код нам придется проверять и отла- 
живать всего один раз, т.е. мы сэкономим еще больше времени. 


Итак, нам известно, что метод можно вызывать посредством операто- 
ра ->, и мы сможем найти более простое решение тех же самых задач. 


Дополнительный параметр при вызове метода 


Код: 
С1а55->теїћод(@агд5) 

пытается вызвать подпрограмму С1а55: :пеїћой как: 
С1а55::теїћоа('С1а55', @аго5); 


(Если в этом случае метод не будет найден, в дело вступает механизм 
наследования, но об этом чуть позже.) Это означает, что в виде первого 
аргумента (возможно, единственного, если никаких аргументов под- 
программе не передается) метод получает имя класса. Поэтому метод 
ѕреак класса 5ћеер можно переписать: 
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зиб ЭПеер: :ѕреак { 
ту $с1аз$ = ѕһћіғі; 
ргіпі "$с1аѕѕ: бе-е-е-е!\п”; 


} 
Методы остальных животных могут быть переписаны аналогично: 


ѕир Сом: : зреак { 

ту $с1аз$ = ѕһћіғі; 

ргіпЕ "$с1а55; му-у-у-у!\п” 
} 
ѕир Ногзе: :ѕреак { 

ту $с1аз$ = ѕһћіғі; 

ргіпі "$с1аѕѕ: иго-го!\п” 


} 


В любом случае в переменную $с1а5$ попадает значение, соответствую- 
щее конкретному методу. Но в конечном счете мы получили ту же са- 
мую организацию программного кода. Можно ли вынести общие уча- 
стки программного кода за пределы методов классов? Да, для этого на- 
до вызвать другой метод в том же самом классе. 


Вызов второго метода с целью упрощения 


Мы можем из метода зреак вызвать вспомогательный метод зоипад. Этот 
метод будет возвращать текст, обозначающий звук, издаваемый жи- 
вотным: 


{ раскаде Сом; 
зир ѕоџпа { ‘му-у-у-у’} 


зиб ѕреак { 
ту фс1аѕѕ = ѕһћіғі; 
ргіпЕ "$с1а55: ", $с1аѕ5->ѕоџпа, “!\п”; 


} 


Вызывая метод Сом->зреак, мы получаем в переменной $с1аз$ внутри ме- 
тода зреак название животного Сом. Этот метод в свою очередь вызывает 
метод Сом->з0ипд, который возвращает строку му-у-у-у. Насколько силь- 
но такое описание класса Сон будет отличаться от описания класса Ногѕе? 


{ раскаде Ногзе; 
ѕир зоипа { ‘иго-го’ } 
ѕир зреак { 
ту $с1аз$ = ѕһћіғі; 
ргіпЕ "$с1а$$: ", $с1азз->з0ипа, “!\п”; 


} 


Изменилось только имя пакета и звук, произносимый животным. Воз- 
никает другой вопрос: можно ли каким-нибудь образом использовать 
единый метод ѕреак во всех классах животных? Да, через механизм на- 
следования! 
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Определим пакет с именем Апіпа1, который будет содержать общий ме- 
тод ѕреак: 


{ раскаде Апіта1; 
ѕир зреак { 
ту $с1аз$ = ѕһћіғі; 
ргіпЕ "$с1аѕѕ ", $с1а55->ѕоџпа, "!\п"; 


} 


Можно сказать, что каждое животное обладает чертами, общими для 
всех животных (класс Апіпа1), и каждое из них издает свой звук: 


{ раскаде Сом; 

@ТЗА = ам(Апіта2); 

ѕир ѕоипа { “му-у-у-у” } 
} 


Обратите внимание: здесь появился массив @1Т5А. Мы вернемся к нему 
буквально через минуту. 


Что теперь произойдет, когда мы попытаемся вызвать метод Сом->ѕреак? 


Сначала Рег| создаст список входных аргументов метода. В данном 
случае он будет содержать единственную строку Сом. Затем Ре попы- 
тается отыскать метод Сом: : зреак. Такого метода в классе нет, и тогда 
Рег| проверит наличие массива @Сом: :15А, в котором указывается имя 
родительского класса. Такой массив в нашем случае имеется, и он со- 
держит единственное имя Ап1та1. 


Теперь Рег попытается отыскать метод ѕреак в классе Апіта1, то есть 
Ап1та]: : реак. Такой метод у нас есть, и поэтому Ре! вызовет его и пе- 
редаст ему список аргументов, созданный ранее: 


Ап1та] : : зреак( '` Сом’); 


Внутри метода Ап1та1: : зреак первый аргумент, строка Сом, будет пере- 
мещен в переменную $с1а55. На следующем шаге в процессе работы 
оператора ргіпі будет вызван метод $с1а55->ѕоџпа, который превратит- 
ся в вызов С0\->$00п0: 


ргіпЕ "$с1аѕ5; ", $с1а55->ѕоџпа, “!\п”; 

# но в переменной $с1аѕѕ находится строка Сом, поэтому. .. 

ргіп ‘Сом: ', Сом->ѕоџпа, “!\п”; 

# где будет вызван метод Сом->ѕоџпа, который вернет строку ‘му-у-у-у’, 


# отсюда конечный результат получается следующим 
ргіпі ‘Сом: ‘', ‘му-у-у-у’, “!\п”; 


В результате мы получим то, что должны были получить. 


Несколько замечаний о массиве @|5А 


Эта магическая переменная @Т5А (произносится «иза» (и ни в коем слу- 
чае не «айса»), от английского «1$ а» – представляет собой) объявляет, 


Несколько замечаний о массиве @15А 157 


что класс корова (Сон) «представляет собой» животное (Апіта1).: Обра- 
тите внимание: это именно массив, а не скалярная переменная, потому 
что в редких случаях есть смысл вести поиск отсутствующих методов 
в нескольких родительских классах. Но об этом мы поговорим позже. 


Если бы в классе Ап1та] также был массив @15А, то Рег| проверил бы 
и его.? Обычно каждый из массивов @15А содержит лишь один элемент 
(наличие нескольких элементов означает множественное наследова- 
ние и многократно усиленную головную боль), в результате мы полу- 
чаем стройное дерево наследования.3 


Включив режим изе ѕігісї, мы получим массу предупреждений, ка- 
сающихся @Т5А, потому что имя этой переменной не содержит явного 
имени пакета, и при этом она не является лексической (ту) перемен- 
ной. Мы не можем объявить эту переменную лексической, потому что 
она должна принадлежать пакету, чтобы быть доступной для механиз- 
ма наследования. 


Есть пара достаточно прямолинейных способов объявления и началь- 
ной установки переменной @15А. Самый простой состоит в том, чтобы 
добавить имя пакета к имени переменной: 


@Сом: :Т5А = ам(Ап1та1); 
Мы можем объявить ее как неявную переменную пакета: 


раскаде Сом; 
иѕе уагз ам(@ТЗА); 
@ТЗА = ам(Апіта1); 


Если версия Рег достаточно современная (5.6 или выше), то можно 
применить спецификатор оиг: 


раскаде Сом; 
сиг @ІЅА = ом(Апіта1); 


Но если программный код может использоваться людьми, у которых 
установлена версия Рет| 5.005 или ниже, тогда лучше от него отка- 
заться. 


Если мы создаем класс в отдельном файле на основе существующего 
объектно-ориентированного модуля, то строки: 


раскаде Сом; 
иѕе Апітма1; 


1 Фактически имя ІЅА является лингвистическим термином. В который раз 
лингвистическое прошлое Ларри Уолла отразилось на языке Рег]. 

2 Поиск производится рекурсивно вглубь и слева направо в каждом массиве 
@ТЗА. 

з Существует возможность организации наследования через ИМТ\УЕВЗА! и АЦТО- 
[0АБ. Более подробную информацию по этой теме вы найдете на страницах 
справочного руководства рег1орј. 


158 


Глава 11. Введение в объекты 


иѕе уагз ом(@ТЗА); 
@ТЗА = ам(Апіта1); 


можно заменить на: 


раскаде Сом; 
иѕе раѕе ам(Апіта1); 


Такая форма записи намного компактнее. Кроме того, директива изе 
раѕе дает дополнительное преимущество, которое заключается в том, 
что она исполняется на этапе компиляции, благодаря чему игнориру- 
ются потенциальные ошибки, связанные с установкой переменной 
@ТЗА на этапе исполнения. 


Перекрытие методов 


Давайте добавим мышь, которую нельзя увидеть, зато можно услы- 
шать: 


{ раскаде Ап1та1; 


зиб ѕреак { 
ту $с1аз$ = ѕһћіғі; 
ргіпЕ "$с1а55: ", $с1аѕ5->ѕоџпа, “!\п”; 


} 


{ раскаде Моиѕе; 
@ТЗА = ам(Апіта1); 
зиб зоипа { ‘пи-пи-пи’ } 


зиб ѕреак { 
ту $с1аз$ = ѕһћіғі; 
ргіпЕ "$с1а3$: ", $с1азз->з0ипа, “!\п”; 


ргіпі "[меня не видно, хотя и слышно! ]\п”; 


} 


Моизе->зреа 


В результате получится: 


Моизе: пи-пи-пи! 
[меня не видно, хотя и слышно! ] 


Здесь класс Моџѕе имеет собственный метод зреак, поэтому обращение 
происходит к методу Моџѕе->ѕреак, а не к Ап1та1->зреак. Этот прием из- 
вестен как перекрытие методов. Перекрытие методов служит для со- 
крытия методов родительского класса в дочернем классе (Моизе), когда 
в дочернем классе необходимо определить специализированную вер- 
сию метода, который должен вызываться вместо метода родительско- 
го класса (Ап1та1). Фактически теперь нам даже не нужно объявлять 
и инициализировать переменную @Моизе::Т5А, поскольку класс Моизе 
обладает полным комплектом методов. 
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Теперь у нас появился программный код, до некоторой степени повто- 
ряющий содержимое метода Апіпа1->ѕреак, что может существенно ос- 
ложнить его сопровождение. Предположим, что некто решил видоиз- 
менить текст, выводимый методом класса Апіпа1, и добавить в него 
слово «кричит». Тогда он идет в класс Апіпа1 и вносит необходимые из- 
менения. Но при обращении к классу Моџѕе эти изменения окажутся 
незаметными. Дело в том, что мы просто скопировали метод ѕреак из 
класса Ап1та] в класс Моџѕе, однако в ООП такой подход считается на- 
рушением. Мы должны взять существующий программный код, а не 
создавать его копии. 


Можно ли избежать этого? Можно ли как-нибудь определить, что 
мышь делает все то же, что и другие животные, но добавить примеча- 
ние? Конечно! 


В первую очередь попробуем обратиться к методу Апіпа1: : зреак напря- 


мую: 
{ раскаде Ап1та1; 
зиб ѕреак { 
ту $с1аз$ = ѕһћіғі; 
ргіпЕ "$с1а55: ", $с1аз$->з0ипа, “!\п”; 


} 


{ раскаде Моиѕе; 
@ТЗА = ам(Апіта1) 
ѕир зоипа { ‘пи-пи-пи’ } 
ѕир зреак { 
ту $с1аз$ = ѕһћіғі; 
Апіта1: : зреак($с1аз$); 
ргіпі "[меня не видно, хотя и слышно! ]\п” 


} 


Обратите внимание: здесь не используется оператор ->, поэтому необ- 
ходимо включить значение переменной $с1а5ѕ в список аргументов 
(конечно, это строка Моџѕе) в качестве первого параметра функции Апі- 
та1: : зреак. 


А почему мы здесь обошлись без оператора «стрелка»? Представьте се- 
бе, что мы пытаемся вызвать метод Ап1та1->зреак, тогда первым аргу- 
ментом ему будет передана строка "Ап1пта1", а не "Моизе", и когда придет 
время обратиться к методу зоипа, у нас не будет допустимого имени 
класса, чтобы выбрать корректный метод. 


Однако прямой вызов метода Ап1та1::зреак может привести к появле- 
нию ошибок. Что если метод Апіпа1: : зреак вообще не существует, а уна- 
следован от другого класса, упомянутого в списке @Апіта1::15А? Предпо- 
ложим, что иерархия классов имеет следующий вид: 


{ раскаде 1іуіпоСгеаїиге; 
ѕир ѕреак { ... } 
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ге 


{ раскаде Апіта2; 
@ТЗА = ам(іуіпоСгеа+иге); 
# определение метода ѕреак() отсутствует 


} 


{ раскаде Моиѕе; 
@ТЗА = ам(Апіта1); 
зиб ѕреак { 


Апіта1::ѕреак( ... ); 


} 


Мы отказались то оператора «стрелка», и у нас остается единственный 
шанс обратиться к нужному методу, потому что мы вызвали метод как 
обычную подпрограмму без привлечения механизма наследования. 
Рег попытается отыскать эту подпрограмму в пакете Апіпа1, не найдет 
ее и прекратит исполнение программы. 


Теперь выбор метода жестко зависит от имени класса Ап1та1. Такой 
подход осложнит сопровождение программного кода, если кто-то 
вдруг изменит содержимое списка @ТЗА в классе Моџѕе и не обратит вни- 
мания на имя класса Апіта1 в методе зреак. Следовательно, это не со- 
всем правильный путь. 


Поиск унаследованного метода 


Лучшее решение заключается в том, чтобы сообщить Ре!| о необходи- 
мости отыскать желаемый метод в цепочке наследования: 


{ раскаде Ап1та1; 


зиб ѕреак { 
ту Фс1аѕѕ = ѕһћіғі; 
ргіпі "$с1а55: ", $с1аѕ$5->ѕоџпа, “!\п”; 


} 


{ раскаде Моиѕе; 
@ТЗА = ам(Апіта1); 
зиб зоипа { ‘пи-пи-пи’ } 
ѕир зреак { 
ту $с1аз$ = ѕһћіғі; 
$с1а$->Ап1та1 : : зреак(@_): 
ргіпі "[меня не видно, хотя и слышно! ]\п”; 
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Выглядит немногим лучше, зато работает. Благодаря такому синтак- 
сису поиск метода ѕреак начинается с класса Ап1лта1 и продолжается 
дальше по цепочке наследования, если в этом классе искомый метод 
не будет обнаружен. Первым параметром методу будет передано содер- 
жимое переменной $с1аѕѕ (поскольку мы опять задействовали опера- 
тор «стрелка»), таким образом, найденный метод ѕреак получит имя 
класса Моџѕе и сможет вызвать метод Моџѕе: : зоипа. 


Однако это далеко не самое лучшее решение. Мы по-прежнему вынуж- 
дены помнить о содержимом @15А и соответственно определять началь- 
ный класс поиска метода (содержимое одного должно точно соответст- 
вовать другому). Было бы еще хуже, если бы класс Моџѕе имел несколь- 
ко элементов в массиве @Т5А, а мы при этом не знали бы, в каком из ро- 
дительских классов определен метод ѕреак. 


А есть ли способ еще лучше? 


ЅОРЕВК способ добиться того же самого 


Заменив в вызове метода имя класса Ап1та1 на служебное слово РЕВ, 
мы сможем потребовать от Рег автоматически выполнить поиск тре- 
буемого метода во всех суперклассах (классы, перечисленные в списке 


@15А): 
{ раскаде Ап1та1; 
зиб ѕреак { 
ту $с1аз$ = ѕһћіғі; 
ргіпЕ "$с1а55: ", $с1аѕ$5->ѕоџпа, “!\п”; 


} 


{ раскаде Моиѕе; 
@ТЗА = ам(Апіта1); 
зиб ѕоипа { ‘пи-пи-пи’ } 
ѕир зреак { 
ту $с1аз$ = $1111; 
$с1азз->50РЕВ: : зреак; 
ргіпі "[меня не видно, хотя и слышно! ]\п”; 


} 


Таким образом, обращение РЕВ: : зреак говорит о том, что поиск мето- 
да зреак должен выполняться в классах, которые перечислены в спи- 
ске @Т5А текущего пакета, после чего должен быть вызван первый из 
найденных методов. В данном случае будет найден только один класс 
Апіпа1, в этом классе будет обнаружен метод ѕреак, после чего этот ме- 
тод будет вызван, а в качестве первого аргумента ему будет передано 
имя класса Моџѕе. 
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Зачем нужен аргумент © _ 


В последнем примере методу ѕреак могли бы передаваться дополни- 
тельные параметры (например, параметры, определяющие, сколько 
раз должно прокричать животное или высоту голоса), которые игно- 
рируются методом Моизе: :зреак. Передать их методу родительского 
класса можно, добавив их в вызов этого метода: 


фс1аѕ5->80РЕВ: : ѕреак(@ ); 


В данной строке вызывается метод ѕреак родительского класса, которо- 
му передаются все входные аргументы, еще не вытолкнутые из теку- 
щего списка входных аргументов. 


Как правильнее сделать? Это зависит от предъявляемых требований. 
Если мы реализуем класс, который лишь добавляет некоторые инди- 
видуальные черты к поведению родительского класса, лучше просто 
передать все аргументы, которые оказались не востребованными теку- 
щим методом. Но если нам необходимо точно определить поведение 
родительского класса, мы должны явно передавать точные значения 
аргументов. 


Что мы узнали... 


К настоящему моменту мы изучили синтаксис обращения к методу с по- 
мощью оператора «стрелка»: 


С1а55->теїһоа(@агдѕ); 
или эквивалентную форму записи: 


ту Фреаѕї = 'С1аз$’; 
фреаѕї->теїһод(@агоѕ); 


в которой сначала создается список аргументов: 
('С1а55', @агдѕ) 

а затем предпринимается попытка вызвать метод: 
С1а55:: теіћоа('С1а55', @агдѕ); 


Если Рег1 не сможет найти (01455: : петПо4, он обойдет элементы массива 
@С1а55: :ІЅА (рекурсивно) и попытается отыскать пакет, который содер- 
жит метод пеїћоа, после чего вызовет его. 


В главе 12 будет показано, как различать отдельных животных друг от 
друга, назначая им свойства, называемые переменными экземпляров. 


Упражнения 


Ответы на эти вопросы вы найдете в приложении А в разделе «Ответы 
к главе 11». 
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Упражнение 1 [20 мин] 


Напишите определения классов Сом, Ногѕе, зпеер и Моизе так, чтобы они 
могли работать в режиме изе ѕїгісї. Для этого, если вы работаете с со- 
временной версией Рег1, воспользуйтесь спецификатором оџг. Ваша 
программа должна запрашивать у пользователя название одного или 
более животных, создавать пастбище с этими животными, а затем за- 
ставлять каждое из них подать голос. 


Упражнение 2 [40 мин] 


Добавьте в программу класс Регзоп на том же уровне, что и класс Ап1- 
па1, так, чтобы оба эти класса наследовали класс і іуіпоСгеаїиге. До- 
бавьте к методу ѕреак класса Регѕоп дополнительный параметр, в кото- 
ром можно было бы передавать произносимую фразу. При отсутствии 
этого параметра метод (класса Регѕоп) должен воспроизводить какой- 
либо звук (например, «ля-ля-ля»). Поскольку это не доктор Дулитл, 
вы должны реализовать методы ѕреак таким образом, чтобы животные 
не могли говорить. (То есть метод зреак класса Ап1та1 должен игнори- 
ровать дополнительные параметры.) Попытайтесь избежать дублиро- 
вания программного кода и не допустить появления ошибок, напри- 
мер в случае, если вы забыли определить метод зоипд для какого-ни- 
будь животного. 


Продемонстрируйте работу класса Регѕоп, обратившись к методу этого 
класса без дополнительного параметра, а затем повторно вызвав его 
с какой-либо фразой в качестве параметра. 
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Объекты и данные 


Простой синтаксис, рассмотренный в главе 11, позволяет создавать ме- 
тоды классов, задействовать механизм наследования (множественно- 
го), перекрывать унаследованные методы и расширять функциональ- 
ность классов. Мы научились описывать общий программный код в од- 
ном месте и разобрались с возможностью многократного использования 
одной и той же реализации с некоторыми изменениями и дополнения- 
ми. Все это составляет основу объектов, но каждый экземпляр того или 
иного объекта может иметь собственные данные, которые называются 
данными экземпляра, о чем мы с вами еще не говорили. 


Лошадь лошади рознь 


Вернемся к программному коду из главы 11, который описывает клас- 
сы Апіта1 и Ногѕе: 


{ раскаде Апіта2; 


зиб ѕреак { 
ту $с1аз$ = ѕһћіғі; 
ргіпЕ "$с1аѕ5: ", $с1аѕ5->ѕоџпа, “!\п” 


} 


{ раскаде Ногзе; 
@ТЗА = ам(Апіта1); 
ѕир зоипа { ‘иго-го’ } 


} 


Такое определение классов дает нам возможность вызвать метод Ногзе 
->ѕреак, что приводит к вызову метода класса Ап1та1: :зреак, который 
в свою очередь вызывает метод Ногѕе: :зоипд, чтобы получить звук, из- 
даваемый лошадью: 


Ногѕе: иго-го! 
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Но втакой реализации все объекты класса Ногзе будут абсолютно иден- 
тичны друг другу. Если мы добавим какой-либо метод, он автоматиче- 
ски будет совместно использоваться всеми лошадьми. Это отменный 
способ сделать всех лошадей одинаковыми, но как отличить их друг от 
друга? Предположим, что мы дали каждой лошади кличку. Должен 
же быть способ, позволяющий хранить клички отдельно друг от друга. 


Этого можно добиться, если создать экземпляры. Экземпляры созда- 
ются классом, точно так же как автомобили создаются на автомобиль- 
ной фабрике. Каждый экземпляр может иметь свойства, которые на- 
зываются переменными экземпляра (или переменными-членами, если 
следовать терминологии С++ или Јауа). Экземпляры имеют уникаль- 
ный идентификатор (как, например, регистрационный номер лоша- 
ди), общие свойства (цвет или порода лошади) и общие черты поведе- 
ния (например, при натягивании узды лошадь останавливается). 


В языке Ре!| каждый экземпляр должен представлять собой ссылку на 
один из встроенных типов. Простейшая разновидность ссылки, в кото- 
рой можно сохранить кличку лошади, — это ссылка на скаляр:! 


ту Фпате = ‘мистер Эд’; ? 
ту Фу һогѕе = \Фпате; 


Теперь переменная $ї1у һогѕе представляет собой ссылку на данные 
(кличку), которые будут относиться к конкретному экземпляру. За- 
ключительный шаг превращения ссылки в реальный экземпляр состо- 
ит в обращении к оператору 0165: 


р1еѕѕ $їу һогѕе, 'Ногзе’; 


Оператор 0105$ следует по ссылке и отыскивает переменную, на кото- 
рую она указывает, в данном случае это скалярная переменная $папе. 
Затем он «освящает» эту переменную при помощи оператора 01055 (о 
Ыез$ — освящать), превращая ее в объект класса Ногзе. (Представьте се- 
бе, что к переменной $папе приклеен листочек с надписью Ногзе.) 


С этого момента $їу һогѕе становится экземпляром класса Ногзе.з Та- 
ким образом, мы получаем вполне конкретный экземпляр лошади. Са- 
ма ссылка во всех отношениях остается обычной ссылкой и может 
быть разыменована обычным способом.“ 


1 Это самый простой, но по причинам, о которых мы вскоре расскажем, ред- 
ко применяемый способ. 

2 Мистер Эд – говорящая лошадь из американского телесериала («Мг. Ед», 
1961 г.) 

з Фактически $їу һогѕе указывает на объект, но ссылки на объекты практи- 
чески повсеместно принято называть объектами. Следовательно, вполне 
допустимо говорить, что $іу һогѕе есть объект класса Ногзе, а не перемен- 
ная, ссылающаяся на объект. 

4 Хотя лучше не делать это вне контекста класса, а о причинах вы узнаете 
позже. 
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Вызов метода экземпляра 


Как и в случае с именами пакетов (классов), метод экземпляра можно 
вызвать посредством оператора «стрелка». Послушаем, какой звук из- 
дает фу һогѕе: 


ту $по1зе = Фу һогѕе->ѕоипа; 


Прежде чем вызвать метод зоипа, Ре! сначала замечает, что $1їу ћогѕе 
представляет собой ссылку на объект, то есть экземпляр класса. Затем 
он создает список параметров – точно так же, как это происходило, ко- 
гда мы вызывали метод класса с помощью оператора ->. В данном слу- 
чае это будет единственный параметр ($їу һогѕе). (Позже мы покажем, 
что остальные аргументы занимают свои места в списке вслед за пере- 
менной экземпляра — точно так же, как и в случае обращения к мето- 
дам класса.) 


Затем происходит самое интересное: Рег1 берет имя класса, экземпля- 
ром которого является переменная - в данном случае это будет класс 
Ногзе — и сего помощью отыскивает и вызывает требуемый метод, как 
если бы мы вместо $1у һогѕе->ѕоџпа записали Ногѕе->ѕоџпа. В этом и со- 
стоит суть оператора 01е55 – связать имя класса со ссылкой, чтобы 
иметь возможность отыскать нужный метод. 


В данном случае Рег] отыскивает метод Ногѕе: : ѕоџпа (не прибегая к ме- 
ханизму наследования) и выполняет вызов подпрограммы: 


Ногзе: : ѕоипа(ф+у һогѕе) 


Обратите внимание: в качестве первого аргумента передается ссылка 
на экземпляр, а не имя класса, как прежде. Метод возвращает строку 
«иго-го», которая затем записывается в переменную $поізѕе. 


Если бы Рег1 не смог отыскать подпрограмму Ногзе: : зоипа, он обратил- 
ся бы к массиву @Ногзе: :15А и попытался отыскать требуемый метод 
в одном из суперклассов, как и в случае вызова метода по имени клас- 
са. Единственное отличие между вызовом метода по имени класса и вы- 
зовом метода экземпляра заключается в том, что будет передано в пер- 
вом аргументе – экземпляр класса (связанная ссылка) или имя класса 
(строка).! 


Доступ к данным экземпляра 


В первом аргументе мы получаем экземпляр класса, поэтому у нас есть 
возможность извлечь данные, характерные именно для этого экземп- 
ляра. Добавим в класс возможность получить кличку лошади: 


{ раскаде Ногѕе; 
@ТЗА = ам(Апіта1); 


1 Вероятно, такая техника отличается от принятой в других объектно-ориен- 
тированных языках. 
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ѕир зоипа { ‘иго-го’ } 
зиб папе { 
ту $ѕе1# = ѕһіғі; 
$$зе1е 


} 
А теперь прочитаем ее: 
ргіпі $їу һогѕе->пате, ”: ", $1\_погзе->зо0ипа, “\п” 


Внутри метода Ногзе::пате массив @_ будет содержать переменную 
$Еи_погзе, которая в самом начале метода выталкивается из массива 
и записывается в переменную $501#. Уже стало традицией в методах 
экземпляров перемещать первый аргумент в переменную экземпляра 
класса с именем $ѕе1#. Желательно, чтобы вы также старались придер- 
живаться этой традиции, если у вас нет достаточно веских оснований, 
чтобы не следовать ей (в языке Ре! имя $зе11 не имеет какого-то особо- 
го значения).! Затем мы разыменовываем $5е1{ как ссылку на скаляр 
и в результате получаем имя «мистер Эд»: 


мистер Эд: иго-го 


Как создать лошадь 


Если бы всех своих лошадей мы создавали вручную, как показано вы- 
ше, то время от времени наверняка допускали бы ошибки. Кроме того, 
«вскрытие» каждой конкретной лошади нарушает один из принципов 
ООП. Такой способ нормален для ветеринара, но не для хозяина лоша- 
ди. Поэтому позволим классу Ногзе самому создавать новые экземпля- 
ры самого себя: 


{ раскаде Ногзе; 
@ТЗА = ам(Апіта1) 


ѕир зоипа { ‘иго-го’ } 
ѕир папе { 
ту $ѕе1# = ѕһіғі; 
ф$561ғ 
} 
зиб папеа { 


ту $с1аз$ = ѕһћіғі; 
ту Фпате = $1111; 
рІеѕѕ \$пате, $с1азз; 


1 Если у вас есть опыт работы с другими объектно-ориентированными язы- 
ками, то вы можете выбрать для этой переменной имя $111$ или $пе, но тем 
самым вы наверняка введете в заблуждение других знатоков Рег], которые 
потом будут изучать ваш программный код. 
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Теперь с помощью метода патед мы можем создать экземпляр класса 
Ногѕе: 


ту Фу һогѕе = Ногѕе->патеа( ‘мистер Эд’); 


Мы снова вернулись к вызову метода класса. Метод Ногѕе: : патед при- 
нимает два аргумента: "Ногзе” и “мистер Эд”. Оператор 01е55 не только 
связывает переменную $папе с именем класса, но и возвращает ссылку 
на эту переменную, которая затем уже выступает в роли возвращаемо- 
го значения метода. Так создаются лошади! 


Здесь мы вызвали конструктор папей, которому в качестве аргумента 
передали имя будущей лошади. Мы можем создать несколько конст- 
рукторов с разными именами вызова, чтобы разными способами «да- 
вать жизнь» объектам (например, регистрировать родословную или 
записывать дату рождения). Однако в большинстве случаев в классах 
создается единственный конструктор, как правило с именем пем, кото- 
рый в состоянии порождать объекты разными способами в зависимо- 
сти от значений своих аргументов. Любой из этих способов имеет пра- 
во на существование при условии, что мы подробно документируем 
принципы использования конструкторов. В большинстве базовых мо- 
дулей и модулей СРАМ конструкторы имеют имя пем, с известными ис- 
ключениями, как, например, конструктор 0ВІ->соппесї() в модуле ВІ. 
Так или иначе, но выбор имени конструктора целиком зависит от ав- 
тора класса. 


Наследование конструктора 


Есть ли что-нибудь в нашем конструкторе такое, что было бы специ- 
фично только для класса Ногѕе? Нет. Таким образом, мы можем пере- 
местить конструктор в класс Ап1та1 и наследовать его во всех дочерних 
классах. Давайте попробуем: 


{ раскаде Апіта2; 
ѕир зреак { 
ту $с1аз$ = эП1 РЕ; 
ргіпЕ "$с1аѕ5: ", $с1аѕ5->ѕоџпа, “!\п” 


ѕир папе { 
ту $5е1# = $1111; 
фф501Ғ; 


ѕир папеа { 
ту $с1аз$ = ѕһћіғі; 
ту Фпате = $1111; 
р1еѕѕ \Фпаме, $с1азз; 


} 


{ раскаде Ногзе; 
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@ТЗА = ам(Апіта1) 
ѕир зоипа { ‘иго-го’ } 


} 


Интересно, а что произойдет, если мы попробуем вызвать метод зоипа 
для экземпляра класса? 


ту Фу һогѕе = Ногѕе->патеа( ‘мистер Эд’); 
фу һогѕе->ѕреак; 


Мы получим отладочное сообщение: 
Ногѕе=$САГАВ (Охаса42ас): иго-го! 


Но почему? Потому что метод Апіпа1: : зреак ожидал получить в первом 
аргументе имя класса, а не переменную экземпляра. Когда вызывает- 
ся метод экземпляра, ему передается связанная ссылка на скаляр со 
строкой, которая выводится так, как только что было показано, – как 
ссылка на строку, только с именем класса впереди. 


Создание метода, работающего 
как с экземплярами, так и с классами 


Нам необходим способ, которым можно было бы определить, в каком 
контексте был вызван метод - как метод класса или как метод экземп- 
ляра. Проще всего обратиться для этого к оператору ге{. Он возвраща- 
ет строку (с именем класса), когда ему передается связанная ссылка на 
экземпляр, и значение џпдеѓ, когда он получает строку (например, имя 
класса). Для начала изменим метод папе: 


зиб папе { 
ту феіїһег = ѕһі?ї; 
ге? феііһег 
? $$еіїһег # это экземпляр класса - вернуть кличку 
"феіїһег без имени”; # это класс 


} 


Здесь с помощью оператора ?: определяется, что нужно вернуть — 
кличку конкретного экземпляра или строку с сообщением. Теперь ме- 
тод папе может вызываться и как метод экземпляра, и как метод клас- 
са. Обратите внимание: мы преднамеренно изменили имя переменной, 
в которой сохраняется значение первого аргумента, чтобы заострить 
ваше внимание: 


рг1пЕ Ногзе->паме, “\п”; # выведет "Ногѕе без имени\п” 


ту Фу һогѕе = Ногѕе->патеа( ‘мистер Эд’); 
ргіпі $їу һогѕе->пате, “\п”; # выведет “мистер Эд\п” 


А теперь аналогичным образом исправим метод ѕреак: 


зиб ѕреак { 
ту Феіїһег = ѕһіғї; 
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ргіп феіћег->пате, 


} 


‚ Феіїћег->ѕоџпа, 


"п"; 


Поскольку метод ѕоџпі уже отличает экземпляр класса от имени клас- 
са, работу по исправлению недостатков можно считать законченной! 


Добавление параметров к методам 


Попробуем научить наших животных есть: 


{ раскаде Ап1та1 


ѕир 


ѕир 


} 


патеа { 
ту $с1аз$ = =һћіғі 
ту Фпате = $1111; 
рІеѕѕ \Фпате, $с1 
папе { 
ту феіїһег = ѕһі# 


ге $еііһег 


? $%феіїһег # э 
г 7феіїћег без 


земпляр класса, 
имени”; 


зреак { 

ту Феіїһег = ѕһіғї; 
ргіпї феіїћег->папе, 
еаї { 

ту Феіїһег = ѕһіғї; 
пу $#ооа = ѕһіғї; 
ргіпї фе1їћег->пате 


{ раскаде Ногѕе; 
@ТЗА = ам(Апіта1) 


ѕир 


} 


{ раскаде $ћеер 


зоипа { ‘иго-го’ } 
@ТЗА = ам(Апіта1) 
зоипа { ‘бе-е-е-е’ } 


ѕир 


} 


И проверим: 


ту фу һогѕе = 


фу һогѕе->еаї( ‘сено’ ); 
Ѕһеер->ва+( ‘траву ); 


В результате получим: 


мистер Эд ест сено. 
Ѕһеер без имени ест траву. 


Ногѕе->патеа( ‘мистер Эд’); 


‚ Феііћег->ѕоџпа, 


вернуть кличку 


# это класс 


"п"; 


” ест $#Ғооа. \п” 
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Методу экземпляра с параметрами при вызове передается ссылка на 
экземпляр и вслед за ним список параметров. Таким образом, первый 
вызов выглядит так: 


Апіта1::еаї($іу һогѕе, ‘сено’): 


Методы экземпляров формируют прикладной программный интер- 
фейс объекта (Арріісаііоп Ргостаттіпс Гпіегѓасе – АРГ). Большая часть 
усилий, затрачиваемых на проектирование класса, связана с проработ- 
кой интерфейса, поскольку именно прикладной интерфейс определяет 
способы использования и сопровождения объекта и порожденных от 
него классов. Не торопитесь зафиксировать интерфейс, пока не разбе- 
ретесь до конца, как вы (или другие) будете использовать объект. 


Более сложные экземпляры 


Как быть, если с экземпляром класса необходимо связать гораздо 
больший объем данных? Более сложные экземпляры классов могут со- 
держать массу элементов, каждый из которых в свою очередь может 
быть ссылкой на другой объект. Пожалуй, проще всего хранить боль- 
шие объемы сведений об экземплярах в хеше. Ключи хеша могут вы- 
ступать в качестве названий частей объекта (они еще называются пе- 
ременными экземпляра или переменными-членами) и содержать соот- 
ветствующие значения, которые..., ну, в общем, значения. 


Теперь надо решить, как превратить лошадь в фарш.! Вспомним, что 
объект – это ссылка, связанная с некоторой переменной. Поэтому мы 
запросто можем создать связанную ссылку на хеш и соответственно 
пересмотреть все наши взгляды на ссылку. 


Попробуем создать овцу, которая будет иметь не только кличку, но 
и цвет: 


ту Ф105+ = 0р1өѕѕ { Мате => 'Бо’, Со1ог => ‘белый’ }, Ѕһеер; 


Кличка овцы $1051->{№ате) — «Бо», а цвет $1051->{С010г) — «белый». Но 
нам еще нужно, чтобы метод $1051->папе возвращал кличку, что он сей- 
час сделать не сможет, потому что ожидает получить ссылку на ска- 
ляр. Исправить этот недостаток не составляет никакого труда: 


## в классе Ап1та1 
ѕир папе { 
ту Феіїһег = ѕһіғї; 
ге феііһег 
? $еіїһег->{№ате} 
: "феіїћег без имени" 


1 Не обращаясь к мяснику. (Игра слов: һаѕһ (хеш) можно перевести с анг- 
лийского как «фарш». – Примеч. перев.) 
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Метод патед по-прежнему создает скалярную овцу, исправим и его за- 
одно: 


## в классе Ап1та1 
зиб папеа { 
ту $с1аз$ = ѕһіғі; 
ту Фпате = $0111; 
ту фѕе1# = { Мате => $пате, Со1ог => $с1аѕѕ->йеғаџ1ї со1ог }; 
рІеѕѕ $561?, $с1азз 


} 


Что это еще за деѓаџ1ї _со10г? Методу патед может быть передана только 
кличка, и потому нам требуется как-то определить цвет, поэтому мы 
задаем цвет по умолчанию, специфичный для целого класса. Для овец 
мы выбрали белый цвет. 


## в классе Зпеер 
ѕир аеғаи1ї со1ог { ‘белый’ } 


Теперь, чтобы избежать необходимости определять цвет по умолча- 
нию для каждого класса, создадим в классе Апіпаї метод, который бу- 
дет возвращать цвет по умолчанию для всех животных: 


## в классе Ап1та1 
зир аеғаи1ї со1ог { ‘коричневый’ } 


Таким образом, по умолчанию все животные у нас будут коричневого 
цвета (может быть, они грязные), если в конкретном классе не опреде- 
лен перекрывающий метод, возвращающий другой цвет по умолчанию. 


Остальные методы мы оставим без изменений, поскольку лишь мето- 
ды папе и папе зависели от структуры объекта. Таким способом обеспе- 
чивается соблюдение еще одного правила ООП: чем меньше внешний 
программный код полагается на внутреннюю структуру объекта, тем 
меньше исправлений придется в него вносить при изменении этой 


структуры. 


Лошадь другого цвета 


Будет довольно скучно, если все лошади у нас будут коричневого цве- 
та. Добавим один-два метода, которые помогут нам узнавать и зада- 
вать цвет: 


## в классе Ап1та1 

ѕир со1ог { 
ту $ѕе1# = $0111; 
$56е1ғ-> {0010г}; 

} 

ѕир зеф со1ог { 
ту $ѕе1# = $0111; 
$зе17->{С010г} = 5һіЁЇ; 
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Теперь изменим цвет мистера Эда: 


ту Фу һогѕе = Ногѕе->патеа( ‘мистер Эд’); 
фу _погзе->зе_со1ог( ‘черный с белыми пятнами’): 
ргіпі $їу һогѕе->пате, `' окрашен в ', $1\ һогѕе->со10ог, “ цвет\п” 


В результате получается: 


мистер Эд окрашен в черный с белыми пятнами цвет 


Что возвращать 


Исходя из стиля, в котором написан метод изменения значения свой- 
ства, он возвращает обновленное значение. При разработке методов 
изменения значений свойств обязательно нужно задумываться (и до- 
кументировать) над тем, что он должен возвращать. На этот счет суще- 
ствуют разные мнения: 


® Измененное значение параметра (то есть значение, которое было пе- 
редано методу) 


• Предыдущее значение (на манер функции итазк или ѕе1есї, когда 
последняя вызывается с единственным аргументом) 


® Сам объект 
• Признак ошибки 


Каждый из указанных вариантов имеет свои преимущества и недос- 
татки. Например, если возвращается измененное значение, его можно 
использовать для изменения свойства другого объекта: 


фу һогѕзе->ѕеі со1ог( $еаііпо->ѕеі со1ог( со1ог_Ргот_изег( ) )); 


В реализации, приведенной выше, метод как раз возвращает обновлен- 
ное значение. Зачастую это позволяет писать самый короткий про- 
граммный код, который к тому же дает более высокую скорость работы. 


Если возвращается предыдущее значение параметра, появляется воз- 
можность более простым способом реализовать временное изменение 
параметра: 


{ 
ту $о1а со1ог = $1у һогѕе->5еї со10ог( ‘оранжевый `); 
выполнить действия с фу һогѕе ... 
фіу һогѕе->ѕеї со10г($о1а со1ог); 


} 
Такое поведение метода может быть реализовано следующим образом: 


ѕир ѕеї _со1ог { 
ту $ѕе1# = $0111; 
ту $0149 = $561#->{С010г)}; 
$5е1Е->{С010г} = ѕһі?ї; 
$019; 
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Чтобы повысить эффективность метода, заставим с помощью функции 
мапіаггау метод не возвращать ничего, если вызывающий программ- 
ный код игнорирует возвращаемое значение: 


ѕир зеф_со1ог { 
ту $ѕе1# = $0111; 
1Ғ (ае?іпеа мапїаггау) { 
# метод должен вернуть значение, поэтому 
возвращаем его 
у $014 = фѕе1#->{Со1ог}; 
ѕе1#->{Со10ог) = ЗП; 
019; 
} е1ѕе { 
# вызывающий код игнорирует возвращаемое значение 
ѕе1#->{Со10ог) = ѕһі?; 


} 


Если возвращается сам объект, можно выполнить целую серию изме- 
нений: 


ту Фу һогѕе = 
Ногзе->патед( ‘мистер Эд’) 
->зеЕ_со1ог(‘серый’) 
->56ї _аде(4) 
->ѕеї һеідһї(`17 пядей’); ' 


Это стало возможным, потому что каждый из методов записи возвра- 
щает сам объект, который становится объектом для вызова следующе- 
го метода в цепочке. Реализация такого поведения метода тоже выгля- 
дит достаточно просто: 


ѕир ѕеї со1ог { 
ту $ѕе1# = $1111; 
фѕе1#->{С010г) = 5һіЁ; 
ф561Ғ#; 

} 


Здесь так же можно использовать трюк с возвращаемым значением, 
хотя в этом нет большого смысла, поскольку значение переменной 
$5601? уже было установлено. 


Наконец, возврат признака ошибки может потребоваться в тех случа- 
ях, когда неудача операции изменения параметра не должна расцени- 
ваться как исключительное событие. В противном случае можно было 
бы возбудить исключение с помощью оператора іе. 


В общем вы можете реализовать любой из предложенных вариантов, 
но постарайтесь быть последовательными настолько, насколько это 


1 Здесь четыре последовательных вызова в первом операторе - часто порядок 
выполнения вызовов оказывается важным. – Примеч. науч. ред. 
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возможно, и обязательно документируйте свои решения (и не изме- 
няйте их после того, как уже выпустили одну версию в свет). 


Не открывайте черный ящик 


Мы могли бы получить или изменить цвет вне контекста класса, обра- 
тившись к значению по ссылке на хеш: іу һогѕе->{Со1ог). Однако та- 
кой способ получения/изменения значений противоречит принципу 
инкапсуляции внутренней структуры объекта. Объект должен быть 
«черным ящиком», а мы «открываем крышку» и заглядываем внутрь. 


Одна из целей ООП заключается в том, чтобы дать возможность разра- 
ботчику класса Ап1та1 или Ногѕе продолжать развивать реализацию 
внутренней структуры объекта и при этом гарантировать безукориз- 
ненную работу интерфейса. Чтобы понять, чем грозит прямой доступ 
к внутренней организации класса, предположим, что в классе Апіпа1 
цвет хранится уже не в виде простого названия цвета, а в виде трех со- 
ставляющих Красный-Зеленый-Синий (которые хранятся в виде ссы- 
лок на массив). В данном примере будет фигурировать вымышленный 
модуль Со10г: : Сопуегѕіопѕ, с помощью которого будем изменять фор- 
мат представления цвета: 


иѕе Со10г: :Сопуегѕіопѕ дм(со1ог папе _+о гор гор о со1ог пате); 


ѕир зеф со1ог { 
ту Фѕе1# = ѕһі?+; 
ту Фпем со1ог = зһіёї; 
фѕе1#->{Со10г) = со1ог пате о гор($пем со10ог); # ссылка на массив 


ѕир со1ог { 
ту $зе1Е = ѕһіғі; 
гор то _со1ог_ пате(%ѕе1#->{Со1ог)); # передается ссылка на массив 


Мы по-прежнему сможем получать и узнавать цвет посредством старо- 
го интерфейса, если будем применять методы доступа, поскольку все 
необходимые преобразования происходят без нашего участия. Кроме 
того, мы сможем добавить новые методы для работы с составляющими 
цвета напрямую: 


зир 561 _со10ог гор { 
ту $ѕе1# = $0111; 
фѕе1#->{Со1ог} = [@ ]; # составляющие цвета передаются в виде аргументов 
} 
ѕир деї_со1ог_ гор { 
ту $ѕе1# = ѕһіғі; 
@{ $5е1#->{Со1ог} }; # вернуть список ВОВ 
} 


Если раньше имелся некоторый программный код, который напря- 
мую получал или изменял цвет в $1у һогѕе->{Со10г}, теперь он уже не 
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сможет этого сделать. Он не сможет безнаказанно записать строку 
(‘голубой’) туда, где нужна ссылка на массив ([0,0, 255]), или правиль- 
но интерпретировать ссылку на массив как строку. Поэтому в ООП ре- 
комендуется создавать специальные методы доступа к элементам клас- 
са, даже если на это придется потратить некоторое время.! 


Оптимизация методов доступа 


Мы собираемся играть по правилам и получать доступ к свойствам 
объектов только с помощью специальных методов доступа, поэтому 
данные методы будут вызваться достаточно часто. Чтобы на каждом 
обращении к тому или иному методу сэкономить хоть немного време- 
ни, мы могли бы реализовать их так: 


## в классе Ап1та1 
ѕир со1ог { $_[0]->{С010г} } 
зиб зеї со1ог { $ [0]->{С010г} = $ [1] } 


Мы не только уменьшили объем программного кода, но и немного его 
ускорили, хотя это едва ли можно будет уловить на общем фоне всего, 
что делается в программе. Здесь мы обращаемся к единственному эле- 
менту массива посредством $_[0]. Вместо того чтобы с помощью опера- 
тора $1111 перемещать аргумент в другую переменную, мы обращаем- 
ся к нему напрямую. 


Операция чтения и записи в одном методе 


В Качестве альтернативы двум методам чтения и записи можно реали- 
зовать единственный метод, который будет совмещать в себе обе опера- 
ции, различая их по присутствию дополнительных входных аргумен- 
тов. Если дополнительных аргументов нет, значит, это метод чтения. 
А если есть, то метод записи. Простейшая версия такого метода: 


ѕир со1ог { 

ту $ѕе1# = ѕһіғі; 

1+ (@_) { # есть дополнительные аргументы? 
# да, это метод записи: 
$зе17->{С010г} = 5һіҒ; 

} е1ѕе { 
# нет, это метод чтения: 
$561#->{Со10г); 


1 В Рег| «объектность» пришла в результате эволюции - в тех языках, кото- 
рые изначально проектировались для поддержки ООП (С++, Јауа), вводят- 
ся квалификаторы области видимости (рир1іс, ргоїесїей, ргіуаїе), которые 
делают невозможным доступ к членам экземпляра класса, не включенным 
в АРІ класса. — Примеч. науч. ред. 
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Теперь мы можем написать такой программный код: 


ту Фу һогѕе = Ногзе->памед( ‘мистер Эд’); 
фу һогѕе->со10г( ‘черный с белыми пятнами’) 
ргіпі $+\/ һогѕе->пате, `' окрашен в ', $1\ һогѕе->со10ог, “ цвет\п” 


Дополнительный аргумент во второй строке свидетельствует, что про- 
изводится изменение цвета, а его отсутствие в третьей строке – о том, 
что выполняется чтение значения цвета. 


Такая стратегия привлекает своей простотой, ноу нее есть свои недос- 
татки. Она замедляет скорость исполнения операции чтения, которая 
производится гораздо чаще, чем операция записи. Кроме того, такой 
подход осложняет поиск всех мест в программе, где производится из- 
менение свойства, потому что приходится постоянно отфильтровывать 
операции чтения. Мы однажды обожглись на этой стратегии, когда не- 
ожиданно вместо операции чтения стала выполняться операция запи- 
си только потому, что другая функция (после изменений) стала воз- 
вращать иное число аргументов. 


Ограничение доступа к методам только по 
имени класса или только для экземпляров класса 


Операция записи клички лошади для всего класса Ногѕе едва ли имеет 
хоть какой-то смысл. Аналогично никто не будет вызвать конструктор 
патед для экземпляра класса. В Рег нельзя указать, что «этот метод 
является методом класса», а «этот — методом экземпляра», но благода- 
ря оператору ге? мы имеем возможность создать исключительную си- 
туацию, когда метод вызывается не по назначению. Например, в мето- 
де, который должен вызываться только как метод класса или только 
как метод экземпляра, мы можем проверить аргумент и определить, 
что делать дальше: 


иѕе Сагр ам(сгоак); 
зир іпѕ+апсе_оп2у { 
ге#(ту $ѕе1#? = ѕһіҒі) ог сгоак "требуется ссылка на экземпляр класса” 
использовать $ѕе1# как ссылку на экземпляр класса ... 
} 
ѕир с1аѕѕ оп1у { 
ге?(ту $с1аѕѕ = ѕһіғі) апа сгоак “требуется имя класса" 
использовать $с1а55 как имя класса ... 


} 


В случае экземпляра класса, который фактически представляет собой 
ссылку на связанную переменную, функция ге? возвращает значение 
«истина» или значение «ложь», если ей будет передано имя класса, 
которое является обычной строкой. Когда функция геѓ возвращает не- 
желательное значение, мы вызываем функцию сгоак из модуля Сагр 
(входит в состав стандартного дистрибутива Рег1). Функция сгоак воз- 
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лагает ответственность на вызывающий программный код, создавая 
сообщение об ошибке, указывающее на точку вызова метода, а не на 
точку вызова самой функции сгоак. В результате мы получим сообще- 
ние об ошибке с номером строки, в которой был произведен ошибоч- 
ный вызов метода, например: 


требуется ссылка на экземпляр класса аї 1Пе1г_со4де 11те 1234 


Функция сгоак представляет собой альтернативную разновидность 
функции 91е. Кроме того, в модуле Сагр имеется функция сагр, которая 
может служить заменой функции магп. Обе они сообщают пользовате- 
лю номер строки, из которой было произведено обращение к методу, 
вызвавшему ошибку. Если в своих модулях вместо іе и магп вы задей- 
ствуете функции модуля Сагр, то ваши пользователи будут вам благо- 
дарны. 


Упражнения 


Ответы на эти вопросы вы найдете в приложении А в разделе «Ответы 
к главе 12». 


Упражнение [45 мин] 


Добавьте в класс Ап1та1 возможность чтения и записи клички и цвета 
животного. Вы должны обеспечить работоспособность программного 
кода в режиме изе ѕігісі. Кроме того, методы чтения должны иметь 
возможность работать как с экземпляром класса, так и с именем клас- 
са. Проверьте работоспособность с помощью следующего отрывка: 


ту Фу һогѕе = Ногзе->патей (‘Эд’); 

фу һогѕе->ѕеї пате( ‘мистер Еа’); 

фу һогѕе->ѕеі со1ог(`серый'); 

ргіпі $їу һогѕе->пате, ' окрашен в ', $1\ һогѕе->со10ог, “ цвет\п”; 
ргіпі Ѕћеер->пате, ` окрашена в ', Ѕћеер->со10ог, ‘’ цвет и издает звук ', 
Ѕһеер->ѕоџпа, “\п”; 


Что следует предпринять, если будет произведена попытка изменить 
кличку или цвет для всего класса животных? 
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Уничтожение объектов 


В двух предыдущих главах мы рассмотрели основные принципы соз- 
дания объектов и взаимодействие с ними. Эта глава посвящена не ме- 
нее важной теме – уничтожению объектов. 


Как уже говорилось в главе 4, когда уничтожается последняя ссылка 
на структуру данных, Рег| автоматически освобождает память, зани- 
маемую этой структурой, включая уничтожение ссылок на другие 
структуры данных. Разумеется, это может привести к необходимости 
уничтожения других («вложенных») структур данных. 


По умолчанию объекты работают аналогичным образом, потому что 
они используют все тот же механизм ссылок на структуры данных. 
Объект, являющийся ссылкой на хеш, уничтожается, когда уничто- 
жается последняя ссылка на этот хеш. Если значениями элементов хе- 
ша являются ссылки, они удаляются обычным образом, что может 
привести к уничтожению других структур данных. 


Уборка мусора 


Предположим, что наш объект хранит во временном файле данные, 
которые не умещаются в памяти. Объект может включать в себя деск- 
риптор этого временного файла в виде переменной экземпляра. В про- 
цессе уничтожения объекта дескриптор файла будет закрыт, но сам 
файл останется на диске, если не предпринять дополнительных дейст- 
вий по его уничтожению. 


Чтобы выполнить заключительные операции по «уборке мусора» в про- 
цессе уничтожения объекта,! мы должны знать, когда это происходит. 
К счастью, Рег| предоставляет возможность получить уведомление об 


1 Как первую фазу уничтожения объекта. – Примеч. науч. ред. 
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уничтожении объекта. Для этого достаточно реализовать в объекте ме- 
тод деструктора ОЕЗТВОУ. 


Когда уничтожается последняя ссылка на объект, скажем $0еѕѕіе, Рег1 
автоматически вызовет метод ОЕЗТВОУ для этого объекта, как если бы 
мы вставили строку: 


$реѕѕіе->РЕЅТВОҮ 


Такой вызов метода ничем не отличается от вызовов других методов: 
Рег1 начинает поиск метода с класса объекта и затем спускается по це- 
почке наследования, пока не обнаружит требуемый метод. Однако, 
в отличие от других, отсутствие этого метода не является ошибкой.! 


Вернемся к нашему примеру класса Ап1та1, который был определен 
в главе 11, и добавим в него исключительно в отладочных целях метод 
ОЕЗТНОУ, чтобы поймать момент, когда объект будет уничтожаться: 


## в классе Ап1та1 
зиб ОЕЗТВОУ { 
ту $зе1Е = $0111; 
ргіп ’[объект ', $ѕе1#->пате, " уничтожен. ]\п”" 


} 


Теперь, если в программе будут создаваться экземпляры каких-либо 
животных, мы будем получать извещения об их уничтожении. Напри- 
мер: 


## добавить классы животных из предыдущей главы... 


зиб ГееЧ_а_сом_памед { 

ту Фпате = $0111; 

ту $сом = Сом->памед ($паме); 

$сои->еа{(‘траву’); 

ргіпі "Возврат из подпрограммы. \п”; # в этой точке объект $сом 
# будет уничтожен 
} 
ргіпі “Начало программы. \п” 
у фоџтег сом = Сом->патеа( 'Бесси’); 
ргіпі "Появилась корова по кличке ", Фоцфег_сом->пате, “.\п” 
Теед_а_сом_патед(‘ Гвен‘); 
ргіп "После возврата из подпрограммы. \п” 


В результате будет получено следующее: 


Начало программы. 

Появилась корова по кличке Бесси 
Гвен ест траву. 

Возврат из подпрограммы. 

[объект Гвен уничтожен. ] 


1 Обращение к отсутствующим методам, как правило, приводит к появле- 
нию ошибки. Для того чтобы предотвратить это, достаточно вставить в ба- 
зовый класс пустые заготовки методов. 
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После возврата из подпрограммы. 
[объект Бесси уничтожен. ] 


Обратите внимание: корова по кличке «Гвен» создается внутри под- 
программы. Когда подпрограмма завершает свою работу, Рег замеча- 
ет, что уничтожается последняя ссылка на объект $сом, и автоматиче- 
ски вызывает метод ОЕЗТНОУ, который выводит сообщение о том, что 
объект Гвен уничтожен. 


А что же происходит в конце программы? Поскольку объекты не могут 
существовать за пределами программы, Рег делает завершающий об- 
ход всех оставшихся структур данных и уничтожает их. Это относится 
не только к лексическим переменным, но и к глобальным переменным 
пакета. Поскольку к концу программы «Бесси» еще жива, ее необхо- 
димо уничтожить, в результате чего мы получаем сообщение о «Бесси» 
в конце работы программы.! 


Уничтожение вложенных объектов 


Если объект содержит в себе другие объекты (например, в виде элемен- 
тов массива или значений элементов хеша), Рег вызовет метод ВЕЅТВОҮ 
объекта-контейнера еще до того, как начнется процесс уничтожения 
вложенных объектов. Это вполне разумно, поскольку объект-контей- 
нер может использовать вложенные объекты для корректного заверше- 
ния своей работы. Чтобы продемонстрировать это на конкретном при- 
мере, попробуем построить «коровник» и затем разрушить его. А чтобы 
сделать пример более интересным, создадим объект не в виде ссылки 
на хеш, а в виде ссылки на массив. 


{ раскаде Вагп; 
ѕир пем { 61ез$ [ ], һіғ } 
ѕир ада { риѕћ @{+5һ1ҒЕ}, ЅһіҒ+ } 
ѕир сопепіѕ { @{+5һіҒЕ) } 
ѕир рЕЅТЋОҮ { 
пу $5е1# = $1111; 
ргіпі "уничтожается объект $ѕе1#.. .\п”; 
Тог ($561#->сопїепїѕ) { 
ргіпі ° ', $ ->пате, “ стала бездомной. \п”; 


} 


Здесь мы ограничились минимально необходимым определением объ- 
екта. Чтобы создать новый коровник, мы связываем ссылку на пустой 
массив с именем класса Вагп, которое передается конструктору в виде 


1 Это происходит сразу же вслед за исполнением блоков ЕМ№ согласно тем же 
правилам, которым подчиняются блоки Е\0: данный программный код ис- 
полняется в случае нормального, а не аварийного завершения программы. 
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первог 
чается 


о аргумента. Добавление нового животного в коровник заклю- 
в добавлении соответствующего объекта в конец массива. При 


запросе содержимого коровника, мы просто разыменовываем ссылку 
на массив объектов и возвращаем его содержимое.! Самая интересная 
часть в объекте — это деструктор. Он выводит сообщение об уничтоже- 


нии са. 
ся вко 


фраг 
фраг 
ргіп 
фраг 
ргіп 


МОГО объекта, а затем выводит клички животных, находивших - 
ровнике. Следующая программа: 


у $рагп = Вагп->пем; 


->ада(Сом->папеа( ‘Бесси’ )); 
->ада(Сом->патеа( ‘Гвен’ )); 
Е "Коровник сгорел: \п” 

= ипает; 

Е "Конец программы. \п” 


выведет: 


оро 


вник сгорел: 


уничтожается объект Вагп=АВВАУ(0х541с)... 
Бесси стала бездомной. 
Гвен стала бездомной. 

[объект Гвен уничтожен. ] 

[объект Бесси уничтожен. ] 

Конец программы 


Обратите внимание: Рег| сначала разрушает коровник, позволяя нам 
получить клички животных, населявших его. Однако, как только ко- 
ровник будет разрушен, вместе с ним исчезают все ссылки на живот- 
ных, что вынуждает Рег| вызвать деструкторы объектов животных. 
Сравните это со случаем, когда коровы живут за пределами коровника: 


у $багп = Вагп->пем; 
у @сомѕ = (Сом->патед (‘Бесси’), Сом->патед(` Гвен’ )); 


$багп->а99($_) Рог @сомѕ; 

ргіпі “Коровник сгорел: \п” 

фрагп = ипаеЁ; 

ргіпї "Пропали коровы: \п” 

@сомѕ = ( ); 

ргіпЕ "Конец программы. \п” 
Эта программа выведет: 

оровник сгорел: 


уничтожается объект Вагп=АВВАУ(0х541с)... 
Бесси стала бездомной. 


1 Задавались ли вы вопросом, зачем здесь стоит знак «плюс» (+)? Дело в том, 
что если бы мы просто указали @{5һіѓї)}, то из-за того, что в фигурных скоб- 


ках 


слово $1111 не имеет специальной приставки, оно интерпретировалось 


бы как символическая ссылка @{"5һ1#ї”}. В языке Рег унарный плюс (сим- 
вол плюса в начале строки) определен как пустая операция (даже не преоб- 
разует следующую за ним строку в число); именно таким способом можно 
отличить случаи, аналогичные данному. 
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Гвен стала бездомной. 
Пропали коровы: 
[объект Гвен уничтожен. ] 
[объект Бесси уничтожен. ] 
Конец программы 


Теперь коровы продолжают жить до тех пор, пока не будут уничтоже- 
ны другие ссылки на эти объекты (в массиве @со\5). 


Ссылки на коров будут уничтожены лишь после того, как деструктор 
коровника завершит свою работу. В случае необходимости у нас будет 
возможность выгнать коров из коровника, чтобы не дать им пропасть 
вместе со зданием. Для этого достаточно переместить объекты в дру- 
гой массив.! Попробуем продемонстрировать это на примере другого 
класса Вагп2: 


{ раскаде Вагп2 
ѕир пем { 61ез$ [ ], ѕһіғ } 
ѕир ада { ризп @{+5һ1ҒЕ}, ЅһіҒ+ } 
ѕир сопепіѕ { @{+5һіҒЕ) } 
ѕир рЕЅТЋОҮ { 
ту $ѕе1# = ѕһіғі; 
ргіпЕ "уничтожается объект $561#.. .\п” 
мһі1е (@ф5е1#) { 
ту фһоте1еѕѕ = ѕһіғі @фѕе1? 
ргіпі °‘', $һоте1еѕѕ->пате, ” стала бездомной. \п" 


} 
Теперь опробуем этот класс с тем же сценарием: 


у $рагп = Вагп2->пем; 
Фрагп->ада(Сом->патеа( 'Бесси’)); 
фрагп->ада(Сом->патеа( 'Гвен’)); 
ргіпї "Коровник сгорел: \п” 

фрагп = ипаеР 

рг1пЕ "Конец программы. \п” 


В результате получим: 


оровник сгорел: 

уничтожается объект Вагп2=АВВАУ( 0х541с)... 
Бесси стала бездомной. 

[объект Бесси уничтожен. ] 
Гвен стала бездомной 

[объект Гвен уничтожен. ] 

онец программы 


1 Вслучае использования хеша вместо массива для непосредственного удале- 
ния объектов из хеша можно обратиться к функции де1ете. 


184 


Глава 13. Уничтожение объектов 


Как видите, Бесси лишилась дома сразу же, как только мы выгнали ее 
из коровника, а затем она была уничтожена. (Бедняжку Гвен постигла 
та же судьба.) Дело в том, что еще до окончания работы деструктора 
были уничтожены все ссылки на наптих животных. 


Теперь вернемся к нашей проблеме с временным файлом. Мы измени- 
ли класс Апіпаї так, чтобы он создавал временный файл с помощью 
модуля Ее: : Тетр, который входит в состав стандартного дистрибути- 
ва Рег1. Подпрограмма їетр#і1е из этого модуля знает, как и где созда- 
вать временные файлы. Она возвращает дескриптор файла и его имя, 
амы сохраняем оба эти значения, поскольку они нам потребуются 
в деструкторе. 


## в классе Ап1та1 
иѕе Е11е::Тетр ам(+етрғі1е) 


зиб папеа { 
у $с1а55 = ЅһіҒї; 

у $пате = 5һі?+; 

у $561# = { Мате => $пате, Со1ог => $с1аѕ5->деғаџ1ї со1ог }; 
# начало нового программного кода... 

у ($7п, $Ғ11епате) = фетре1те( ); 

ѕе1#->{+етр #һ} = Ф#һ 

ѕе1#->{+етр ?іІепате)} = $#і1епате; 

# конец нового программного кода... 

рІеѕѕ $561?, $с1азз 


} 


Теперьу нас есть дескриптор файла и его имя, которые были сохранены 
в виде переменных экземпляра класса Ап1та1 (или любого другого, по- 
рожденного от класса Апіпа1). В деструкторе мы закрываем файл и за- 
тем удаляем его!: 


зиб рЕЅТЋОҮ { 
ту $5е1# = $1111; 
ту ФЕһ = фзе1#->{тетр_#һ) 
с10ѕе $#һ 
ипііпк $ѕе1#->{+өтр ?і1епапте}; 
ргіпі '`[объект `, $ѕе1#?->пате, " уничтожен. ]\п” 


} 


Когда будет уничтожена последняя ссылка на объект класса Апіпа1 
(даже если это произойдет в результате завершения работы програм- 
мы), автоматически будет удален и временный файл. 


1 Эти же действия могут быть выполнены автоматически, но это лишило бы 
нас возможности проиллюстрировать наши рассуждения на примере. Об- 
работка закрытия файла вручную позволит выполнить дополнительные 
действия, например переместить некоторые сведения из временного файла 
в базу данных. 
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Вторичная переработка 


Деструкторы, как и любые другие методы, наследуются дочерними 
классами и могут вызываться с помощью механизма наследования, но 
точно так же существует возможность перекрытия деструкторов в до- 
черних классах. Например, мы можем решить, что павшие лошади 
могут быть как-то использованы. Для этого в нашем классе Ногзе мы 
перекроем метод ОЕЗТАО\У, унаследованный от класса Апіпа1, и преду- 
смотрим дополнительную переработку. Поскольку нам могут быть не- 
известны все тонкости работы деструктора класса Апіпа1, мы будем вы- 
зывать его посредством псевдокласса 51РЕВ::, о котором рассказыва- 
лось в главе 11. 


## в классе Ногзе 

зиб ОЕЗТВОУ { 

у $ѕе1# = ѕһі?; 

ѕе1#->ЅЏ0РЕЋ: : РЕЅТВОҮ; 

ргіпі "[", $561#->пате, “ отправлен на фабрику для переработки. ]\п” 


} 


пу @їү һогѕеѕ = тар Ногзе->патед($_), (’Триггер’, ‘мистер Эд’); 
Ф ->еаї(`яблоко`) Тог @{\_Погзез; # их последний прием пищи 
ргіпі "Конец программы. \п” 


Эта программа выведет: 


Триггер ест яблоко. 

мистер Эд ест яблоко. 

Конец программы 

[объект мистер Эд уничтожен. ] 

[мистер Эд отправлен на фабрику для переработки. ] 
[объект Триггер уничтожен. ] 

[Триггер отправлен на фабрику для переработки. ] 


Напоследок мы накормили каждую из лошадей, а в конце программы 
был вызван деструктор каждой из них. 


Первым делом новый деструктор вызывает деструктор родительского 
класса. Почему это так важно? Если унаследованный деструктор не 
будет вызван, то не будут выполнены действия, предусмотренные су- 
перклассом этого класса. В принципе в этом нет ничего страшного, ес- 
ли родительский деструктор просто выводит отладочное сообщение, 
но если он, к примеру, удаляет временный файл, тогда окажется, что 
вы не удалили его! 


В общем виде данное правило можно сформулировать так: 


Всегда включайте в деструкторы вызов $5е1#->5РЕҢ: : ВЕЗТАОУ (даже 
если текущий класс не имеет базового/родительского класса). 


Точка вызова унаследованного деструктора (в конце или в начале) яв- 
ляется предметом ожесточенных дискуссий. Если дочернему классу 
будут необходимы переменные экземпляра, унаследованные от супер- 
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класса, тогда унаследованный деструктор следует вызывать после вы- 
полнения всех необходимых действий, потому что деструктор роди- 
тельского класса может изменять! их в процессе своей работы. С дру- 
гой стороны, в нашем примере мы вызвали деструктор суперкласса 
в самом начале, потому что нам необходимо было сначала получить ре- 
акцию суперкласса. 


Форма косвенного обращения к объектам 


Синтаксис вызова метода с помощью оператора «стрелка» иногда на- 
зывают синтаксисом прямого обращения к объекту, но кроме него су- 
ществует синтаксис косвенного обращения к объекту, который не все- 
гда работает правильно по причинам, о которых мы расскажем чуть 
ниже. Обращение к методу объекта с помощью оператора «стрелка»: 


С1а55->с1а$5 теіһод(@агодѕ); 
фіпѕ+апсе->іпзтапсе те+ћоа(@оїћег); 


можно заменить формой записи, когда имя метода предшествует име- 
ни класса с последующим списком аргументов. 


сІаѕѕтеїћоа С1а55 @агдз; 
іпзтапсетеіһоа $іпѕіапсе @оїћһег; 


Такая форма записи значительно чаще встречалась в далекие дни 
Рег1 5, и мы продолжаем пытаться искоренить ее. Очень жаль, что мы 
не можем рассказать о нем подробнее (если вы ничего не знаете об этом 
синтаксисе, то и не связывайтесь с ним), но он периодически будет 
встречаться вам, поэтому знать о нем совершенно необходимо. Такой 
синтаксис обычно встречается при вызове метода пем, когда авторы мо- 
дулей подменяют синтаксис, основанный на операторе «стрелка»: 


ту $06) = Зоте: : С1а55->пем(@сопзїгисіог рагатѕ); 


на то, что больше напоминает фразу, построенную в соответствии с пра- 
вилами английского языка: 


ту $06) = пем Ѕоте: :С1азз @сопзЕгисфог_рагамз; 


и ближе для понимания программистам, знакомым с языком програм- 
мирования С++. Разумеется, Рег| не вкладывает никакого особого 
смысла в имя пем, но сам синтаксис вызова кажется очень знакомым. 


В чем же, собственно, заключаются недостатки, которые не позволяют 
подменять синтаксис на основе оператора > синтаксисом косвенного 
обращения к объекту? Представьте себе случай, когда экземпляр клас- 


1 Или, что гораздо хуже, просто уничтожить их. Вообще-то, по правилам 
классических языков ООП (С++, Јауа) деструктор суперкласса неявно вы- 
зывается после завершения деструктора производного класса, и этот поря- 
док никаким способом нельзя изменить. — Примеч. науч. ред. 


Форма косвенного обращения к объектам 187 


са представляет собой более сложную структуру, чем обычная скаляр- 
ная переменная: 


$зотепазй->{$зотекеу} ->[42]->іпѕтапсе тећоа(@рагтѕ); 


в такой ситуации мы не можем просто поменять местами обращения 
к методам, как это принято в синтаксисе косвенного обращения: 


іпзтапсе_пе+ћоа $ѕотеһаѕћ->{$ѕотекеу}->[42] @рагмз; 


В косвенном синтаксисе допускаются лишь простые имена, не имею- 
щие специального префикса (например, имена классов), простые ска- 
лярные переменные или фигурные скобки, обозначающие блок, кото- 
рый должен возвращать либо ссылку на экземпляр класса, либо имя 
класса.! Это означает, что в косвенном синтаксисе вызов метода оформ- 
ляется примерно так: 


іпзтапсе теїћоа { фѕотеһаѕһ->{фѕотекеу)}->[42] } @рагтѕ; 


Как быстро простое превратилось в уродливое. Есть и еще один недос- 
таток: неоднозначность. Прорабатывая учебные примеры к теме кос- 
венного синтаксиса обращения по ссылкам, мы написали: 


ту $сом = Сом->патеа( Бесси’); 
ргіп пате $сом, ” ест.\п”; 


поскольку полагали, что такая форма записи эквивалентна следующей: 


ту $сом = Сом->памед( 'Бесси’); 
ргіпі $сом->пате, “ ест. \п"; 


Однако, как потом выяснилось, этот пример ничего не выводил на эк- 
ран. Тогда мы включили режим вывода предупреждений (ключ -м ко- 
мандной строки)? и получили такую последовательность предупреж- 
дений: 


Ипацотед ѕїгіпо “пате” тау с1азй міїћ Гифиге геѕегуеа мога аі ./Роо Јіпе 92. 
Мате "таіп: : пате” иѕеа оп1у опсе: роѕѕір1е їуро аї . /Ғоо 1іпе 92. 
ргіпї( ) оп ипорепед #і1еһапд1е пате а+ . /Ғоо 1іпе 92. 


Данная строка была интерпретирована как: 
ргіпі пате ($сом, “ ест. \п”); 


Другими словами, была выполнена операция вывода списка в файло- 
вый дескриптор с именем папе. Конечно, мы хотели получить не это, 


1 Самые проницательные читатели наверняка заметили, что те же самые 
правила применяются в косвенном синтаксисе обращения к дескрипторам 
файлов, равно как и правила, регулирующие работу со ссылками, подле- 
жащими разыменованию. 

2 Когда что-то происходит не так, как ожидалось, в первую очередь следует 
воспользоваться ключом -м. Возможно, это напоминание покажется вам 
излишним, поскольку при разработке программного кода включение ре- 
жима вывода предупреждений – обычное дело. 
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поэтому должны были видоизменить обращение к методу, чтобы уст- 
ранить неоднозначность.! 


Таким образом, мы подошли к еще одному строгому правилу: Всегда 
придерживайтесь синтаксиса прямого обращения к объектам. 


Тем не менее мы понимаем, что большинство программистов предпочи- 
тают писать пем С1а55 ..., а не С1а55->пем(...). В документации к ста- 
рым модулям примеры следуют косвенному синтаксису обращения 
к классам, а попробовав один раз, вы подсознательно будете стремиться 
применять тот же прием везде. Однако иногда обстоятельства склады- 
ваются так, что возникает неопределенность интерпретации программ- 
ного кода (например, когда подпрограмма с именем пем вызывается для 
класса, имя которого не ассоциируется с именем пакета). Когда у вас 
возникают сомнения в однозначности интерпретации косвенного син- 
таксиса, старайтесь заменить его синтаксисом прямого обращения. 
Тот, кто будет потом сопровождать вашу программу, будет вам только 
благодарен за это. 


Дополнительные переменные экземпляра 
в подклассах 


Одна из замечательных особенностей, присущая хешам, выступаю- 
щим в качестве хранилища данных, заключается в том, что дочерние 
классы могут создавать в них дополнительные переменные экземпля- 
ра без участия суперкласса. Попробуем от класса Ногзе (лошадь) поро- 
дить класс ВасеНогзе (скаковая лошадь), который будет обладать теми 
же свойствами, что и класс Ногзе, но при этом в нем будут иметься пе- 
ременные для хранения числа первых, вторых и третьих мест, а также 
количества гонок, в которых лошадь не заняла призового места. Пер- 
вая часть определения выглядит достаточно тривиально: 


{ раскаде ВасеНогзе; 
оиг @Т5А = ам(Ногзе); 


} 


Экземпляр класса ВасеНогзе будет инициализироваться значениями, 
свидетельствующими об отсутствии побед в гонках. Для этого мы пе- 
рекроем и расширим подпрограмму паптед и добавим четыре дополни- 
тельных поля (первых, вторых, третьих и ни_одного для числа первых, вто- 
рых, третьих и ни одного из вышеперечисленных мест, занятых в гон- 
ках): 


1 Неоднозначность проявилась по той причине, что функция ргіпі?() обычно 
вызывается для дескриптора файла. Поразмыслив об этой функции, вы на- 
верняка вспомните об отсутствии запятой после дескриптора файла, вслед- 
ствие чего обращение к этой функции в точности совпадает с синтаксисом 
косвенного обращения к объекту. 
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{ раскаде ВасеНогзе; 
оиг @Т5А = ам(Ногзе); 
## перекрыть и расширить родительский конструктор: 
зиб патеа { 
ту фѕе1# = ѕһіғі->50РЕВ: : патед(@_); 
фѕе1#->{$_} = 0 Гог ам(первых вторых третьих ни_одного); 
ф501Ғ; 


} 


Здесь мы сначала передаем все аргументы конструктору родительско- 
го класса, который возвращает полностью сформированный экземп- 
ляр класса Ногзе. Но поскольку при обращении к конструктору переда- 
ется имя класса ВасеНогзе, он связывает ссылку именно с классом Васе- 
Ногѕе.! Затем добавляются четыре переменные экземпляра, которые 
отсутствуют в определении суперкласса, и попутно им присваиваются 
начальные значения. В заключение в вызывающую программу возвра- 
щается готовый экземпляр ВасеНогзе. 


Обратите внимание: при создании дочернего класса мы фактически 
«приоткрыли черный ящик». Нам известно, что в качестве экземпля- 
ра суперкласса выступает ссылка на хеш, и что в иерархии суперклас- 
са отсутствуют имена, которые мы использовали для создания пере- 
менных в дочернем классе. Мы поступили так потому, что (выражаясь 
терминологией языка С++ или Јауа) класс ВасеНогзе является «друже- 
ственным» классом по отношению к классу Ногѕе и имеет прямой дос- 
туп к переменным экземпляра. Если программист, сопровождающий 
классы Ап1та1 и Ногѕе, когда-либо внесет в определения классов изме- 
нения, ведущие к конфликтам, это может оставаться незамеченным до 
того момента, как мы откроем свой программный код заказчикам. 
Еще более интересной может оказаться ситуация, когда ссылка на 
хеш будет заменена ссылкой на массив. 


Один из способов ликвидировать такую зависимость заключается в том, 
чтобы использовать технику включения родительского класса вместо 
наследования. В данном примере для этого нужно было бы создать 
объект Ногзе как переменную экземпляра класса ВасеНогзе, а все ос- 
тальные данные разместить в отдельных переменных экземпляра. 
Кроме того, потребовалось бы организовать вызов методов класса Васе- 
Ногзе, унаследованных от класса Ногѕе, через механизм делегирования. 
Однако, даже несмотря на наличие в языке Рег! поддержки всех вы- 
шеперечисленных операций, такая реализация оказывается обычно 
более медлительной и более громоздкой. Но хватит дискуссий. 


Далее реализуем несколько методов доступа к переменным: 


1 Аналогичным образом конструктор класса Ап1та1 создает экземпляр класса 
Ногѕе, а не Ап1та1, когда ему в качестве параметра передается имя класса 
Ногѕе. 
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{ раскаде ВасеНогзе; 
оиг @Т5А = ам(Ногзе); 
## перекрыть и расширить родительский конструктор: 
зиб памеа { 
ту $зе1Е = ѕһіғі->$0РЕВ: : патеа(@_); 
$зе11->{$_} = 0 Гог ом(первых вторых третьих ни_одного); 
$зе1Е; 


ѕир моп { зһі?Е->{ ‘первых’ }++; } 
зиб р1асеа { эһі?і->{'вторых'}++; } 
зиб зпомей { зп1РЕ->{ ‘третьих’ }++; } 
зир 1051 { ЅһіРЕ->{ ‘ни одного’ }++; } 
зиб зфапа1паз { 
ту $ѕе1# = ѕһіғі; 
јоіп ', ', тар “$: $ѕе1#->{$ }", ам(первых вторых третьих 
ни_одного); 


у $гасег = ВасеНогѕе->патеа( ‘Билли Бой’); 
записать: 3 победы, 1 второе место, 
1 раз не было занято ни одно призовое место 
гасег->моп: 
гасег->моп; 
гасег->моп; 
гасег->ѕһомеа; 
гасег->1081; 
ргіпі фгасег->пате, ` занял мест ‘, фгасег->ѕ+апаіпоѕ, “”.\п”; 


В результате: 


Билли Бой занял мест первых: 1, вторых: 0, третьих: 1, ни_одного: 1. 
[объект Билли Бой уничтожен] 
[Билли Бой отправлен на фабрику для переработки] 


Обратите внимание: здесь по-прежнему происходит обращение к дест- 
рукторам классов Ногзе и Ап1та1. Суперклассы понятия не имеют, что 
мы добавили четыре дополнительных элемента в хеш, тем не менее они 
вполне работоспособны и исполняют возложенные на них функции. 


Переменные класса 


Как поступить, если возникнет необходимость обойти всех животных, 
которые были нами созданы? Животные могут существовать в про- 
странстве имен программы, а могут быть потеряны сразу же после вы- 
хода из конструктора паптед.! 


Ноу нас есть возможность записать созданное животное в хеш, а затем 
обойти этот хеш в поисках всех животных. Ключами такого хеша мо- 


1 Ну, не совсем потеряны. Это мы можем потерять их, а Ре! всегда знает, где 
они находятся. 
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гут быть строковые представления ссылок на экземпляры,! а значе- 
ниями — сами ссылки, что даст нам возможность обращаться к ним. 


Например, расширим конструктор папей в классе Апіпа1: 


## в классе Ап1та1 
оиг %ВЕСТЬТВУ; 
зиб папеа { 
ту $с1аз$ = эП1 ЕЕ; 
ту Фпате = $1111; 
ту фѕе1# = { Мате => $пате, Со1ог => $с1аѕѕ->йеғаџ1ї со1ог }; 
рІеѕѕ $561?, $с1азз 
ФВЕСІЗТВҮ{ф$61#)} = $561#; # возвращает $ѕе1# 
} 


Имя переменной %ВЕСТОТВУ состоит только из символов верхнего реги- 
стра, и это лишний раз напоминает, что она имеет более глобальную об- 
ласть видимости, чем остальные переменные. В данном случае она 
представляет собой метапеременную, содержащую информацию о мно- 
жестве экземпляров. 


Когда переменная $3е1{ выступает в качестве ключа, Рег1 переводит ее 
содержимое в строковое представление, то есть превращает в строку, 
уникальную для объекта. 


Кроме того, нам необходимо добавить один новый метод: 


зиб гедіѕіегеа { 

гефигп тар { ‘экземпляр `. ге?(ф )." с именем ”.$_->паме } уа1иез 
%ВЕСТЬТВУ; 
} 


Теперь у нас есть возможность получить список всех животных, кото- 
рые были созданы: 


пу @сомѕ = тар Сом->патед($_), ом(Бесси Гвен) 

ту @һогѕеѕ = тар Ногзе->патед($_), (' Триггер’, ‘мистер Эд’); 
ту @гасеһогѕеѕ = ВасеНогѕе->патей( ‘Билли Бой’); 

ргіпЕ “Список животных :\п”, тар(" $_\п”, Апіта1->гедіѕїегеа) 
ргіпЕ “Конец программы. \п” 


В результате получим: 


Список животных: 
экземпляр ВасеНогѕе с именем Билли Бой 
экземпляр Ногзе с именем мистер Эд 
экземпляр Ногзе с именем Триггер 
экземпляр Сом с именем Гвен 
экземпляр Сом с именем Бесси 
Конец программы 
[объект Билли Бой уничтожен] 
[Билли Бой отправлен на фабрику для переработки] 


1 Или любые другие строки, отвечающие требованиям уникальности. 
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[объект мистер Эд уничтожен] 

[мистер Эд отправлен на фабрику для переработки] 
[объект Триггер уничтожен] 

[Триггер отправлен на фабрику для переработки] 
[объект Бесси уничтожен] 

[объект Гвен уничтожен] 


Обратите внимание: все животные уничтожаются в порядке уничто- 
жения переменных, которые хранят ссылки на них. Или нет? 


Слабые ссылки 


Переменная %АЕСТЗТВУ также хранит ссылки на экземпляры живот- 
ных. Таким образом, даже если программа выйдет из области видимо- 
сти переменных, содержащих ссылки на этих животных: 


{ 
ту @сомѕ = тар Сом->памед($_), дм(Бесси Гвен); 
ту @һогѕеѕ = тар Ногзе->памед($_), ('Триггер’, ‘мистер Эд’); 
ту @гасеһогѕеѕ = ВасеНогѕе->патеа( ‘Билли Бой’); 
} 
ргіпі "Список животных:\п”, тар(“” $ \п”, Апіта1->гедіѕїегеа); 
ргіпі "Конец программы. \п”; 


мы все равно получим тот же результат. Животные не уничтожаются, 
даже несмотря на то, что переменные, хранившие ссылки на них, по- 
кинули область видимости. На первый взгляд этот недостаток можно 
исправить, изменив деструктор: 


## в классе Ап1та1 

зиб ОЕЗТВОУ { 
ту $ѕе1# = $0111; 
ргіп ’[объект ', $ѕе1#->пате, " уничтожен. ]\п" 
де1ете $ВЕСІЅТВҮ{$ѕе1#); 

} 


## такое дополнение не решает проблему (читайте дальше) 


Но это никак не повлияло на результат. Почему? Потому что деструк- 
тор не вызывается до тех пор, пока не исчезнет последняя ссылка, но 
последняя ссылка не может быть уничтожена, пока не будет вызван 
деструктор.! 


Одно из решений для достаточно свежих версий Рег]? состоит в том, 
чтобы использовать слабые ссылки. Слабые ссылки не учитываются 
механизмом подсчета ссылок. Однако это лучше проиллюстрировать 
на примере. 


1 Мы бы создали тут ссылку на курицу и яйцо, но тогда в классе Апіта1 поя- 
вился бы еще один производный класс. 


2 5.бивыше. 
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Механизм слабых ссылок уже встроен в ядро Рег1 5.8. Тем не менее 
нам нужен внешний интерфейс для доступа к подпрограмме меакеп, ко- 
торый может быть импортирован из модуля Эса1аг: : 0411. В Ре! 5.6 ту 
же функциональность можно эмулировать с помощью модуля СРАМ — 
меакВе#. После установки модуля (если в этом возникла необходи- 
мость)! следует обновить конструктор следующим образом: 


## в классе Ап1та1 

иѕе эса1аг: :1111 ам(меакеп); # в версии 5.8 и выше 

иѕе МеакВе? ам(меакеп); # в версии 5.6 после установки модуля из СРАМ 
зиб папеа { 
ге?(ту $с1аѕѕ = зһіғі) апа сгоак ‘допустимо только для имени класса’ 
у $пате = 5һі?+; 

у $561# = { Мате => $пате, Со1ог => $с1аѕ5->ӣеғаџ1ї со1ог }; 

рІеѕѕ $561#, $с1а$$ 

ВЕОІЅТВҮ{Ф561#) = ф561ғ 

меакеп ( $ВЕСТЗТВУ{$5е11}) 

Зее; 


} 


Когда Рег! подсчитывает количество активных ссылок на «нечто»2, он 
не будет учитывать слабые ссылки, преобразованные функцией меакеп. 
Если все обычные ссылки были удалены, Рег| уничтожает «нечто», 
а в слабые ссылки записывает значение ипает. 


Теперь все будет работать так, как мы того ожидаем: 


ту @һогѕеѕ = тар Ногзе->патед($_), (' Триггер’, ‘мистер Эд’); 
ргіпі “Список животных перед входом в блок: \п”, 
тар(” $_\п”, Апіта1->гедіѕіегей); 


пу @сомѕ = тар Сом->патед($_), ам(Бесси Гвен); 
ту @гасепогзез = ВасеНогзе->патед( ‘Билли Бой’); 
ргіпї "Список животных внутри блока:\п”, мар(” $_\п”, Апіта1->гедіѕіегеа); 
} 
ргіпі “Список животных, оставшихся в живых по выходе из блока:\п”, 
тар(” $_\п”, Апіта1->гедіѕіегеа); 
ри1пЕ “Конец программы. \п”; 


В результате работы этого примера мы получим: 


Список животных перед входом в блок: 
экземпляр Ногзе с именем Триггер 
экземпляр Ногзе с именем мистер Эд 

Список животных внутри блока: 
экземпляр Ногзе с именем Триггер 
экземпляр Ногзе с именем мистер Эд 


1 Порядок установки модулей описывается в главе 8. 

2 В документации Рег] под «нечто» (#0 ш=у) подразумеваются опорные точки 
ссылок, например объекты. Если вы особенно щепетильны в подборе тер- 
минологии, можете называть их объектами ссылок. 
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[6] 


земпляр Сом с именем Бесси 

земпляр ВасеНогѕе с именем Билли Бой 

земпляр Сом с именем Гвен 

[объект Билли Бой уничтожен. ] 

[Билли Бой отправлен на фабрику для переработки. ] 
[объект Гвен уничтожен. ] 

[объект Бесси уничтожен. ] 

Список животных, оставшихся в живых по выходе из блока: 
экземпляр Ногѕе с именем Триггер 

экземпляр Ногѕе с именем мистер Эд 

онец программы 
[объект мистер Эд уничтожен. ] 

[мистер Эд отправлен на фабрику для переработки. ] 
[объект Триггер уничтожен. ] 

[Триггер отправлен на фабрику для переработки. ] 


ә Ф 


Обратите внимание: скаковая лошадь и коровы прекратили свое суще- 
ствование в конце блока, а обычные лошади в конце программы. Мы 
добились, чего хотели! 


Кроме всего прочего, слабые ссылки могут оказать помощь в ликвида- 
ции утечек памяти. Предположим, что нам необходимо вести родо- 
словные животных. В объектах животных-родителей можно было бы 
хранить ссылки на потомков, а в объектах животных -потомков ссыл- 
ки на родителей.! 


Мы можем создать слабые ссылки в одном из направлений (или даже 
в обоих). Если слабые ссылки используются в объектах родителей по- 
сле того, как все ссылки на объект потомка будут уничтожены, Рег] 
может уничтожить сам объект потомка, а в ссылку объекта-родителя 
записать значение ипдег (либо в деструкторе можно предусмотреть 
полное удаление ссылки). При этом объекты животных-родителей не 
смогут исчезнуть, пока у них есть хотя бы один потомок. Аналогично, 
если для ссылки на родителей в объектах-потомках будут использо- 
ваться слабые ссылки, они просто будут получать значение ипде{ после 
исчезновения объектов-родителей. Это действительно очень гибкое ре- 
шение.? 


Без слабых ссылок, как только мы создадим связь родитель-потомок, 
оба объекта будут оставаться в памяти до окончания работы програм- 
мы независимо от уничтожения других структур данных, ссылаю- 
щихся на объекты родителя и потомка. 


Будьте внимательны: слабые ссылки следует применять с большой ос- 
торожностью, особенно при создании циклических зависимостей. Ес- 
ли данные, на которые имеются слабые ссылки, будут уничтожены 


1 Это решает ту проблему циклических ссылок, которую авторы обсуждали 
несколькими главами ранее. — Примеч. науч. ред. 

2 При использовании слабых ссылок необходимо в обязательном порядке 
проверять их значение, чтобы не разыменовать ссылку со значением ипдег. 
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раньше времени, это может привести к появлению ошибок, которые 
очень трудно отыскать и исправить. 


Упражнения 


Ответы на эти вопросы вы найдете в приложении А в разделе «Ответы 
к главе 13». 


Упражнение [45 мин] 


Измените определение класса ВасеНогзе таким образом, чтобы в мо- 
мент создания экземпляра информацию об участии в скачках можно 
было бы извлекать из хеша ОВМ (где в качестве ключа выступает имя 
лошади), а при уничтожении экземпляра – сохранять в этом хеше. На- 
пример, после четырехкратного запуска следующей программы: 


ту Фгиппег = ВасеНогѕе->патеа( "Билли Бой’); 
Фгиппег->моп; 
ргіпЕ Фгиппег->пате, ' занял мест ', $гиппег->ѕёапаіпоѕ, “.\п”; 


количество первых мест должно стать равно четырем. При этом экзем- 
пляры НасеНогзе должны сохранить функциональность, присущую 
классу Ногзе. 


Для упрощения решения используйте в хеше ОВМ в качестве значения 
четыре целых числа, разделенных пробелами. 


Дополнительные сведения об объектах 


У вас, наверное, есть некоторые вопросы, например: «Существует ли 
некий класс, который является общим для всех объектов?», «Как ра- 
ботает механизм множественного наследования?» или «Как узнать, 
объект какого класса я использую?». В данной главе мы ответим на 
эти и некоторые другие вопросы. 


Методы класса ЧММУЕВ$АЕ 


В процессе создания новых классов мы расширяем их иерархию насле- 
дования посредством глобальной переменной @15А в каждом пакете. 
Чтобы отыскать нужный метод, Рег обходит дерево @15А, пока не обна- 
ружит его или пока не дойдет до конца дерева. 


Однако после того как поиск завершится неудачей, Ре! всегда про- 
сматривает определение класса с именем ИМТ\УЕВЗА! и вызывает методы 
этого класса, если таковые будут обнаружены, как если бы и они нахо- 
дились в определении самого класса или суперкласса. 


Класс ИМТУЕВЗАЕ можно рассматривать как базовый, от которого порож- 
даются все остальные классы.! Если в определение класса поместить 
некоторый метод, например: 


ѕир ОМТ\УЕНЗА! : : Гапдапдо { 
магп ‘объект ‘, $П1ТЕ, “ может станцевать фанданго! \п" 


} 


то все объекты программы смогут вызывать этот метод как $ѕоте_ор- 
јесі-> Ғапдапдо. 


1 Точно так же, как, например, в ОО языке Јауа все объекты являются про- 
изводными от единого родительского класса 00јесї. – Примеч. науч. ред. 
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Вообще мы должны были бы определить метод Гапдапдо в требуемых 
классах, а затем создать определение метода ЏМІМЕВЅАІ: : Гапдапдо на тот 
случай, если Рег] не сможет отыскать подходящий метод. В качестве 
практического примера применения класса ИМТУЕНЗА- можно было бы 
привести подпрограммы вывода отладочной информации или сохране- 
ния всех объектов программы в файле.! Мы определяем некоторый об- 
щий метод в классе ИМТ\УЕВЗА! и затем перекрываем его в тех классах, 
где это необходимо. 


Вполне очевидно, что класс ИМТ\УЕАЗАЕ должен использоваться очень эко- 
номно, потому что существует всего один универсальный класс, и наше 
имя метода Гапдапдо может вступить в конфликт с именем Ғапдапдо из 
другого модуля, подключенного к программе. По этим причинам класс 
ОМІУЕВЅАГ предназначен лишь для определения действительно универ- 
сальных методов, вызываемых в процессе отладки или для взаимодей- 
ствия с внутренними механизмами Рег]. 


Проверка возможностей объектов 


Пакет ИМТ\УЕВЗА! не только обеспечивает место для хранения универ- 
сальных методов, но и предоставляет два предопределенных метода: 
13а и сап. Эти методы определены в классе ИМТУЕАЗАЕ, поэтому они до- 
ступны всем объектам любых классов. 


Метод 15а позволяет проверить, является ли текущий класс или экзем- 
пляр класса наследником некоторого определенного класса. Рассмот- 
рим семейство классов, порожденных от класса Ап1та1 в предыдущих 
главах: 


1Е (Ногѕе->іѕа('`Апіта1`)) { # порожден ли класс Ногзе от класса Апіта1? 
рг1пЕ “Класс Ногзе порожден от класса Апіта1. \п” 


} 


ту Фу һогѕе = Ногзе->памед( "мистер Эд”); 

і? (фу һогѕе->іѕа('`Апіта1`)) { # это класс Апіта1? 
ргіпі $фіу һогѕе->пате, “ принадлежит классу Апіта2. \п” 
ЇР ($їу һогѕе->іѕа('Ногѕе’)) { # это класс Ногѕе? 


ргіпі ‘Фактически ', $їу һогѕе->пате, “ - это класс Ногзе. \п" 
} е1ѕе { 
ргіпі "...но не принадлежит классу Ногзе. \п" 


} 


Это очень удобно, когда приходится работать с наборами разнородных 
объектов и структур данных и при этом отличать категории объектов 
друг от друга: 


ту @һогѕеѕ = дгер $_->1за( 'Ногзе’), @а11 апіта1ѕ; 


1 То, что называется сериализацией. — Примеч. науч. ред 
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В результате из массива @а1] _ап1та1$ в список попадут только объекты, 
которые принадлежат классу Ногѕе (или ВасеНогзе). Сравните это со 
следующей строкой: 


ту @һогѕеѕ опіу = дгер геЁ $ өд ‘Ногзе’, @а11 апіта1$; 


которая отберет только экземпляры класса Ногзе, т. к. оператор ге! для 
экземпляров класса ВасеНогѕе вернет строку, отличную от «Ногзе». 


Вообще мы должны избегать конструкции: 
ге?(Фѕоте орјесі) өд '`ЗотеС1аѕ$' 


в программах, поскольку она препятствует будущим пользователям 
порождать дочерние классы от этого класса. Старайтесь применять ме- 
тод іѕа, как это было показано ранее. 


Один из недостатков метода іѕа в данной ситуации заключается в том, 
что он работает только со ссылками на экземпляры или со скалярами, 
которые выглядят как имена классов. Если методу передать ссылку, 
не связанную с экземпляром класса, это вызовет появление фатальной 
ошибки: 


Сап '` са11 метод "1за” оп ипр1еѕѕеа геғегепсе аї ... 
Чтобы избежать этого, метод іѕа следует вызывать как подпрограмму: 


1? (ОМІМЕВЅАГ: :іѕа(фипкпомп 11119, `Апіта1')) { 
это класс Апіта1! 


} 


Ошибки не будет независимо от содержимого переменной ФипКпомп_ 
+1119. Но это уход в сторону от объектно-ориентированного стиля, что 
ведет к появлению других трудностей.! Поэтому в таком анализе луч- 
ше задействовать механизм исключений, например с помощью функ- 
ции еуа1. Если фипкпомп_111п9 не является ссылкой, это значит, что мы 
не должны вызывать метод. Функция еуа]1 перехватит ошибку и вер- 
нет значение ипдет, что в данном случае будет означать «ложь»: 


11 (еуа1 { $ипкпомп_ +һіпод->іѕа(`Апіта1`) }) { 
это класс Апіта1! 


} 


Аналогичным образом предоставляется способ проверить наличие той 
или иной функциональной возможности с помощью метода сап. На- 
пример: 


1Е (Фу һогѕе->сап(`еаі`)) { 
фіу һогѕе->еаї(` сено’); 


1 Если класс Апіпаі определяет собственный метод іѕа (который, возможно, 
отбраковывает мутировавших животных), то обращение к подпрограмме 
ОМТ\УЕВЗА! : :1за произойдет в обход Апіпа1::іѕа и может дать неверный ре- 
зультат. 
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Если метод сап возвращает «истину», значит где-то в иерархии насле- 
дования имеется метод ваї. Для метода сап справедливы те же ограни- 
чения, что и для метода 13а: $17 һогѕе должна быть ссылкой на экземп- 
ляр класса или скалярной переменной с именем класса. Аналогично 
может применяться алгоритм обхода ошибочной ситуации: 


1? (еуа1 { $1у һогѕе->сап('`еаї') } ){... } 


Обратите внимание: если учесть наличие объявленного ранее метода 
ОМТУЕНЗАЕ : : Ғапаапдо, то 


форјесі->сап( `Ғапдапоо’) 


всегда будет возвращать значение «истина», поскольку все объекты 
наследуют функциональность, определенную классом ИМТ\УЕВЗАЕ. 


Метод АЧТОГОАО как последняя инстанция 


После того как Рег] не найдет требуемый метод в иерархии наследова- 
ния или в классе ИМТ\УЕВЗА|, он не останавливается на достигнутом, 
а повторяет попытку поиска по той же иерархии (включая и класс № - 
ҮЕВЅАІ), пытаясь отыскать метод с именем АЦТОГОАР. 


Если метод А0ТОІ0А0 существует, он вызывается вместо затребованного 
метода, и ему передается обычный в таких случаях список входных ар- 
гументов: имя класса или ссылка на экземпляр и список аргументов, 
передававшихся ненайденному методу. Полное имя вызывавшегося, 
но не найденного метода передается в переменной пакета $АЏТОГОАр 
(в пакете, где данная подпрограмма была скомпилирована), поэтому 
при необходимости получить простое имя метода придется удалить из 
имени все символы вплоть до последнего двойного двоеточия. 


Подпрограмма АТО 0А) может сама выполнить все необходимые дейст- 
вия, определить нужную подпрограмму и вызвать ее или аварийно за- 
вершить программу, если было запрошено неизвестное действие. 


Одно из применений метода АЦТОЕОАО заключается в том, чтобы отло- 
жить компиляцию длинной подпрограммы до момента, когда она дей- 
ствительно станет необходима. Допустим, что метод еа{ представляет 
собой очень сложную подпрограмму, которая вызывается далеко не 
при каждом запуске программы. Тогда, чтобы сэкономить какое-то 
время, можно было бы отложить ее компиляцию: 


## в классе Ап1та1 
зиб АУТОГОАВ { 
оиг ФА0ТОГОАО; 
(ту Фтеһоа = ФАУТОЕОАО) =” $/.*:://з; # удалить имя пакета 
і? (Фтеһоа ед "өаї") < 
## определить метод еаї: 
еуа1 а{ 
ѕир еаї { 
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длинное 
тело 
метода 


} 
}; # конец строки 9{ } 


91е $@ 11 $0; # если вкралась опечатка 
дото ёеаї; # вызвать метод 
} е1ѕе { # неизвестный метод 


сгоак "$ [01: метод Фтеїһћоа не найден\п”; 


} 


Если зафиксировано обращение к методу ваї (который оформлен в ви- 
де строки, но еще не был скомпилирован), выполняется его компиля- 
ция, и затем производится переход к этому методу с помощью специ- 
альной конструкции, которая подменяет вызов текущей подпрограм- 
мы (АУТОГОАО) вызовом метода ваї, как если бы был вызван метод &еаї, 
а не АЦТОГОАр.: После первого обращения к АЏТОІ0А? в определении клас- 
са появится новый метод ваї. Таким образом, в следующий раз этот ме- 
тод будет вызываться уже напрямую. Такой прием очень хорош для 
больших программ, т. к. ускоряет их запуск за счет сокращения вре- 
мени компиляции программного кода. 


Автоматизированный способ создания программного кода, который 
облегчает отключение автозагрузки в процессе разработки и отладки, 
описан в документации к базовым модулям Аџїоіоайег и $е1#1оадег. 


Применение АЧТОЕОАО 
для реализации методов доступа 


В главе 12 было показано, как создать методы доступа к атрибуту цве- 
та животного: со1оги зе{_со1ог. Но если вместо 1-2 атрибутов класс бу- 
дет иметь 20, тогда программный код будет иметь большое число по- 
вторяющихся участков. Однако метод АЏТОГ0А0 позволяет сконструиро- 
вать практически идентичные методы доступа к разным атрибутам, 
что позволит сэкономить на времени компиляции и уменьшить износ 
клавиатуры разработчика. 


Для реализации такого поведения мы обратимся к ссылкам на подпро- 
граммы. Для начала определим метод АТО! 0А в классе и создадим хеш 
со списком атрибутов, к которым требуется организовать доступ: 


1 Строго говоря, применение оператора 9010 в программах не рекомендуется 
(и вполне оправданно), но в данном случае это совсем иная форма 09010 — 
«правильный 9010», которая как бы меняет имя текущей подпрограммы на 
заданное. Этот трюк позволяет сделать подпрограмму АЏТОІ0АЮ вообще не- 
видимой для программы. 
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зиб АУТОГОАВ { 
ту @е1етепіѕ = дм(со1ог аде меідћі һеідһ+); 


Затем надо определить тип доступа к заданному атрибуту (чтение или 
запись), выбрать соответствующий метод и выполнить переход. Вот 
пример реализации метода чтения : 


оиг ФАЦТОГОАО; 
іҒ (ФАЦТОГОАЮ =7 /: : (\м+)$/ апа огер $1 ед $_, @е1Іетепїѕ) { 
ту $Р1е19 = исРігѕі $1; 
{ 
по ѕігісї ‘гегз’; 
*  ФАОТОГОАО) = ѕир { $ [0]->{$#іе1а) }; 


} 
дото &{$АЦТОГОАО); 


} 


Функция исѓігѕі задействуется здесь по той простой причине, что ме- 
тод со10ог извлекает значение атрибута С01ог. Операция подстановки 
(символ звездочки) в нашем случае создает подпрограмму, которая 
возвращает значение требуемого ключа из хеша объекта. Мы не будем 
углубляться в описание этой части метода. Будем считать, что это ма- 
гия, и мы просто скопировали и вставили ее в свою программу. В за- 
ключение конструкция 9010 выполняет переход к вновь созданной 
подпрограмме. 


А вот реализация метода записи: 


1е (ФАЦТОГОАЮ =7 /: :ѕеї (\м+)$/ апа дгер $1 ед $, @е1іетепіѕ) { 
пу $Р1е1а = исРігѕї $1; 
{ 
по зігісі ‘геЁз’; 
* {ФАЦЏТОГОАВ} = ѕир { $ [0]->{%#іе1а) = $ [1] }; 
} 
дото &{$АЦТОГОАО); 


} 


Если запрошена операция, не соответствующая указанным критери- 
ям, просто аварийно завершаем программу: 


сгоак "$ [0] вызван ошибочный метод Ф$теЁћод\п”; 


} 


Расплачиваться увеличением времени исполнения метода доступа 
придется только при первом обращении к нему. После этого он уже бу- 
дет считаться определенной подпрограммой и будет вызываться на- 
прямую. 


Более простой способ создания методов доступа 


Если способ создания методов доступа на базе метода А0ТОГ0А0 кажется 
вам непривлекательным, знайте, что на самом деле его лучше не при- 
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менять, так как в СРАМ существует модуль С1а5$: : МеіћодМакег, кото- 
рый позволяет выполнить эти же действия проще.! 


Упрощенная версия класса Ап1та1 может быть определена так: 


раскаде Апіта1; 

иѕе СТазз: : МеїһодМакег 
пем міћ іпії => ‘пем” 
деї_ѕеї => [-е1РРе1 => [дм(со1ог һеіоһї пате аде) ]], 
арѕгасі => [ам(ѕоџпа) ], 


ѕир 1111 4 
у $561? = ЅһіҒї; 
ѕе1#->5өї со10г($%61#->@еҒаџ1ї со10г); 


зиб папеа { 
у $56е1#Ғ = ЅһІҒЕ->пем; 
ѕ61#->$6ї пате(ѕһі?і); 


5617; 
} 
зиб зреак { 
у $561? = $й11Е; 
ргіпі $зе1Р->паме, ': ‘, $ѕе1#->ѕоџпа, “\п” 
} 
ѕир ваї { 
ту $ѕе1# = ѕһіғі; 
ту ФҒооа = ѕһі?+; 


ріп ф56е1#->пате, “ ест фҒоод\п” 


} 


ѕир аеғаи1ї со1ог { 


‘коричневый’; 


} 


Методы доступа к четырем атрибутам (папе, һеідһі, со1ог и аде) созда- 
ются автоматически. Для получения информации о цвете служит ме- 
тод со10г, для изменения цвета — 56ї _со10ог. (Флаг еі?ѓе1 говорит, что 
«определения методов следует создавать в соответствии с правилами, 
принятыми в языке программирования Е1Ё{е|»). Теперь непривлека- 
тельная операция связывания скрыта за ширмой простого метода пем. 
Здесь цвет животного по умолчанию назначается внутри метода іпії, 
который вызывается из метода пем. 


При такой реализации мы по-прежнему можем пользоваться конст- 
руктором папе, например: Ногзе->патей( ‘мистер Эд’), потому что он сам 
обращается к подпрограмме пем. 


Модуль (1азз: : МеїһодМакег сгенерирует метод ѕоџпаі как абстрактный. 
Абстрактный метод – это пустой метод, реализация которого должна 


1 В некоторых случаях (С1аз5: : Мет подМакег может оказаться слишком тяжело- 
весным, тогда можно воспользоваться более легким (С1а33: : Ассеѕѕог. 
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присутствовать в дочерних классах. Если в дочернем классе метод 
зоипа определен не будет, тогда при попытке обращения к нему будет 
вызван метод, сгенерированный С1а53: : МеїһодМакег, что приведет к ава- 
рийному завершению программы. 


Здесь мы утратили возможность обращаться к методам чтения (таким 
как папе) как к методам класса. В свою очередь это не дает возмож- 
ность обращаться к методам ѕреак и еаї класса Апіпа1, как мы делали 
это ранее. Один из способов решения проблемы заключается в том, 
чтобы определить более универсальный метод пате, который может 
вызываться и как метод класса, и как метод экземпляра, после чего 
изменить остальные подпрограммы, обращающиеся к нему: 


ѕир депег1с_паме { 
ту Феіїһег = ѕһіғї; 
ге? $еіїһег ? $ејіһег->пате : "$еі+һег без имени "; 


зиб зреак { 

ту Феіїһег = ѕһіғї; 

ргіпі феіїһег->депегіс пате, `: ', $еіїћег->ѕоџпа, “\п” 
} 
ѕир ваї { 


ту Феіїһег = ѕһіғї; 
ту ФҒооа = ѕһі?+; 
ргіпі феіїһег->депегіс пате, “ ест $Ғоод\п”; 


} 


Теперь мы получили определение, которое практически совместимо 
с предыдущим, за исключением случаев, когда дружественные классы 
обращались к значениям атрибутов (таким как (010г) прямо в хеше, 
минуя методы доступа ($501#->со10г). 


Это снова подводит нас к проблеме сопровождения программного ко- 
да. Чем меньше внутренняя реализация класса (тип структуры дан- 
ных – хеш или массив, имена ключей в хеше или типы элементов) за- 
висит от его интерфейса (имена методов, списки входных аргументов 
или типы возвращаемых значений), тем более гибкой и более простой 
в обслуживании будет наша система. 


Однако гибкость вовсе не означает высокую производительность. Стои- 
мость вызова метода всегда будет выше стоимости выборки данных из 
хеша, поэтому в отдельных случаях имеет смысл позволить дружест- 
венным классам обращаться к внутренним данным напрямую. 


Множественное наследование 


Как Рег| выполняет обход дерева наследования @15А? Ответ на этот во- 
прос и прост, и сложен одновременно. Если механизм множественного 
наследования не задействуется (то есть массив @15А содержит всего 
один элемент), ответ очень прост: Рег1 переходит от одного @15А к дру- 
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гому, пока не найдет базовый класс, массив @ТЗА которого не содержит 
элементов.! 


Алгоритм обхода дерева классов в случае множественного наследова- 
ния (когда массив @Т5А содержит более одного элемента) выглядит зна- 
чительно сложнее. Предположим, что у нас имеется класс с именем 
Васег, который реализует базовую функциональность для всего, что 
может участвовать в гонках, то есть он может служить базовым клас- 
сом для бегуна, гоночного автомобиля или даже беговой черепахи. 
При наличии такого класса мы могли бы реализовать класс скаковой 
лошади так:? 


{ 
раскаде ВасеНогзе; 
оиг @ІЅА = дм{ Ногзе Васег }; 


} 


Теперь классу ВасеНогѕе доступно все то, что доступно классу Ногзе 
и классу Васег. Когда Ре! начинает поиск метода, который отсутству- 
ет в реализации самого класса НасеНогзе, он сначала обойдет дерево на- 
следования класса Ногѕе (включая все его родительские классы, такие 
как Ап1та1). Если требуемый метод не будет найден, Рег| переключится 
на класс Васег (и его родительские классы), чтобы определить, не по- 
ставляется ли требуемый метод этим классом. Если необходимо, что- 
бы поиск сначала выполнялся в дереве наследования класса Васег, его 
имя должно быть указано первым в списке @15А (рис. 14.1). 


Упражнения 


Ответы на эти вопросы вы найдете в приложении А в разделе «Ответы 
к главе 14». 


Упражнение 1 [20 мин] 


Напишите модуль с именем Муђаїе, который использовал бы метод 
АОТОГОАВ для обслуживания обращений к методам ау, попїћ и уеаг, воз- 
вращая соответствующее значение. В случае обращения к неопреде- 
ленным методам АТО 0А0 должен вызывать подпрограмму сагр, чтобы 
сообщить пользователю о вызове несуществующего метода. Напишите 
сценарий, который, основываясь на модуле Муђаїе, выводил бы день, 
месяц и год. 


1 Или раньше в этом обходе не встретит класс, содержащий в своем @15А тре- 
буемый метод. – Примеч. науч. ред. 

2 Если между методами классов Ногѕе и Васег имеется конфликт имен или их 
реализации не в состоянии обеспечить совместную работу, ситуация может 
осложниться еще больше. Различные классы в @Т5А могут быть плохо со- 
вместимы между собой и могут, например, затирать данные друг друга. 
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УМУЕВЗАЕ 
іѕа 
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Апита! Васег 
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Васеһогѕе 


нна 


Рис. 14.1. Класс может не иметь собственные реализации методов, если все, 
что ему необходимо, он наследует от родительских классов через механизм 
множественного наследования 


Упражнение 2 [40 мин] 


Добавьте в сценарий, который вы написали в первом упражнении, 
функцию ОМІМЕВЅАГ: : йерид. Эта функция должна выводить текущее вре- 
мя и текст сообщения, которое должно передаваться ей во входном ар- 
гументе. Вызовите метод йери объекта МуПате. Что произошло? Как это 
согласуется с механизмом работы АЏТОГ0А0? 
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Экспортирование 


В главе 3 было показано, как работать с модулями, которые помещают 
свои функции в текущее пространство имен. Здесь мы поговорим о том, 
как заставить свои модули делать то же самое. 


Что делает директива и5е 


Так что же в действительности делает директива изе? Какую роль иг- 
рает список импортируемых подпрограмм? Список импорта директи- 
вы изе Рег интерпретирует как особую форму блока ВЕСТМ, внутри ко- 
торого находятся директива гедиіге и вызов одного метода. Например, 
следующие две операции эквивалентны: 


иѕе Іѕ1апа: :Р101{1п9::Марз дм( Іоаа пар ѕса1е тар гам тар ); 


ВЕСТМ { 
геди1ге Іѕ1апа: : Р10їїіпо: :Марз; 
Іѕ1апа: : Р10їііпо: :Марѕ->ітрогі( ам( 1оад тар ѕса1е тар агам тар ) ); 


} 


Рассмотрим этот программный код по частям. Сначала директиве ге- 
и1ге передается имя пакета, а не строка, как было показано в главе 10. 
Затем двоеточия в этом имени будут преобразованы в разделители имен 
каталогов (в ОМІХ-подобных операционных системах это символ «/»)1, 
ак имени будет добавлено расширение . рп (от «Рег тоаише»). В ОМІХ- 
подобной операционной системе мы в конечном итоге получим: 


геди1ге “Т$1апа/Р1о{11п9/Марз. рт”; 
Из описания директивы гедиіге, которое приводилось ранее, следует, 


что в данном случае Рег1 будет просматривать список каталогов из мас- 


1 Или «\» для ОС Міпаожѕ. – Примеч. науч. ред. 
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сива @Т\С в поисках каталога 151апа, содержащего подкаталог Р10її1пд, 
внутри которого находился бы файл Марѕ.рп.! Если соответствующий 
файл не будет найден, на этом работа программы завершится. В про- 
тивном случае будет загружен и откомпилирован первый встретивший- 
ся файл. Как обычно, последнее выражение, вычисленное в найден- 
ном модуле директивой гөдиі ге, должно возвращать значение «истина» 
(иначе программа завершится аварийно). Как только Рег прочитает 
файл модуля, он уже не будет повторно считывать его, если где-нибудь 
еще встретится директива геди1ге, требующая загрузки этого же моду- 
ля. Предполагается, что загруженный файл определит в качестве ин- 
терфейса ряд подпрограмм в своем пространстве имен, а не в простран- 
стве имен вызывающего пакета. Так, если бы мы удалили из файла 
[11е: :Вазепате реализацию подпрограмм, то увидели бы примерно сле- 


дующее: 
раскаде Е11е: :Вазепате 
ѕир 91гпаме {... } 
ѕир Базепаме {... } 
зиб #і1ерагѕе {... } 


1; 


Эти три подпрограммы определены в пакете Е11е: : Ваѕепапе, а не в паке- 
те, который загрузил их с помощью директивы иѕе. Загруженный 
файл должен возвращать значение «истина» в последнем выражении; 
отсюда вполне традиционная последняя строка, содержащая 1;. 


Как же имена подпрограмм попадают в пространство имен пакета поль- 
зователя? Этот шаг выполняется во второй строке блока ВЕСТМ. Ре! авто- 
матически вызывает подпрограмму модуля с именем іпрогї, которой пе- 
редается весь список импорта. Как правило, некоторые из имен в этом 
списке представляют собой псевдонимы подпрограмм, под которыми 
их имена импортируются в текущее пространство имен. Ответствен- 
ность за создание подпрограммы іпрогї несет разработчик модуля. Эта 
подпрограмма выглядит намного проще, чем пояснения, приведенные 
выше, в чем вы вскоре убедитесь. 


И наконец, эта последовательность действий обернута в блок ВЕСТМ. То 
есть директива изе исполняется на этапе компиляции. В результате 
подпрограммы связаны с соответствующими подпрограммами в моду- 
ле, прототипы определены должным образом и так далее. 


1 Расширение . рп определяется интерфейсом Рег] и не может быть изменено. 
Таким образом, все имена файлов с модулями должны оканчиваться рас- 
ширением .рп. 

2 Удовлетворивший всем этим условиям: имеется в виду, что массив массива 
@ІМС может содержать (далее) другие каталоги, в которых может присутст- 
вовать І51апа/Р1ої+іпо/Марѕ. рт. — Примеч. науч. ред. 


з Эту ошибку можно перехватить с помощью функции е\уа1. 
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Импорт с помощью модуля Ехрогїег 


В главе З мы перепрыгнули через последовательность действий, где 
подпрограмма 1трог{ (созданная автором модуля) должна взять имя 
Ғі1е: : Ваѕепате: : #і1ерагѕе и каким-то образом определить ее псевдоним 
в вызывающем пакете, чтобы она стала доступна под именем #і1ерагѕе. 


Рег| предоставляет ряд конструкций для проведения интроспекции 
(анализа внутреннего строения программы). Например, мы можем про- 
смотреть таблицу символов (где сосредоточены все имена подпрограмм 
и переменных), увидеть, какие из них определены, и изменить эти оп- 
ределения. Кое-что вы уже видели, когда рассматривали механизм ра- 
боты метода А0ТОІ0Ар в главе 14. Если бы мы были авторами модуля 
Ғі1е: :Вазепате и хотели бы просто перенести имена подпрограмм ѓі1е- 
папе, раѕепапе и ?і1ерагѕе из текущего пакета в пакет паіп, то могли бы 
написать подпрограмму 1трог{ так: 


зиб ітрогі { 
по ѕігісі '`геғѕ' 
Тог (ом(#11епате баѕепате ?і1ерагѕе)) { 
* {"па1п::$_"} = \8$ ; 


} 


Прямо ребус какой-то! Да еще и с ограничениями. А что если вызы- 
вающий пакет не хочет импортировать подпрограмму #і1ерагѕе? Что 
если вызывающий пакет называется вовсе не паіп? 


К счастью, в модуле Ехрогїег есть стандартная функция 1трог+. Чтобы 
воспользоваться ею, автору модуля достаточно включить строку 


иѕе раѕе ам(Ехрогтег); 


Теперь обращение к функции ітрогі будет передано классу Ехрогїег, 
который знает, как обработать список импортируемых подпрограмм! 
и экспортировать их в вызывающий пакет. 


@ЕХРОКТ и @ЕХРОКТ_ОК 


Функция іпрогї, предоставляемая модулем Ехрогїег, проверяет значе- 
ние переменной @ЕХРОВТ модуля, чтобы определить перечень имен, экс- 
портируемых по умолчанию. Так, модуль Ғі1е::Ваѕепапе мог бы сде- 
лать примерно следующее: 


раскаде Е11е: : Ваѕепате; 
оиг @ЕХРОВТ = ам( разепате дігпате Ғі1ерагѕе ); 
иѕе раѕе ам(Ехрогїег); 


Список @ЕХРОВТ определяет как перечень подпрограмм, доступных для 
экспорта (общедоступный интерфейс), так и список подпрограмм, экс- 


1 И переменных, хотя мало кто так делает, и вряд ли надо подражать им. 
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портируемых по умолчанию, если не определен список импорта. На- 
пример, следующие две строки можно считать эквивалентными: 


иѕе Ее: :Вазепаме; 
ВЕСТМ { геди1ге Р11е: :Вазепаме; Е11е: :Ваѕепате->ітрог+ } 


Функции 1трог{ список не передается. В этом случае подпрограмма Ех- 
рогтег->1трогЕ прочитает содержимое массива @ЕХРОНТ и импортирует 
все подпрограммы из этого списка.! 


Как быть, если мы не хотим включать некоторые подпрограммы в спи- 
сок по умолчанию, но при этом хотим, чтобы они были доступны для 
импорта? Имена этих подпрограмм можно добавить в список @ЕХРОВТ_ОК 
пакета модуля. Предположим, что модуль Джиллигана по умолчанию 
экспортирует подпрограмму 00еѕѕ_ ді гесііоп_їомага, но при этом он мо- 
жет экспортировать подпрограммы аѕк_ їће_5кіррег _ароиї и оеї погїћ_ 
Тгоп_рготеззог, если это будет явно запрошено. Тогда модуль может на- 
чинаться со строк: 


раскаде Мау1дате: : ЅеатО#Рап+ѕ; 

оиг @ЕХРОВТ = дм(9иеѕѕ аігесііоп Томага); 

оиг @ЕХРОВТ_ОК = ам(аѕк_ ће _ѕкіррег ароиџї деї погіћ_Ғгот ргоғеѕѕог); 
иѕе раѕе ам(Ехрогтїег); 


В этом случае допустимыми были бы следующие обращения к дирек- 
тиве: 


иѕе №ауідате: : ЗеатОТРапт$; # импортирует 0ие55_а1 гесї1оп_ Томага 
иѕе М№ауідате : :Ѕеато#Рапїѕ дм(0иеѕѕ_дігестіоп +омагӣ); # то же самое 


иѕе №амуідате: : Ѕеато?Рапїѕ 
дм(09ие55_дігестіоп омага аѕк_ ће ѕкіррег_ароџї); 


иѕе №ауідате: : Ѕеао?Рапїѕ 
дм(аѕк_+ће_ѕкіррег ароиї дет погіћ_Ғгот ргоҒеѕѕог); 
# НЕ импортирует подпрограмму 9иеѕ5_дігесііоп_ Томага! 


Если мы указываем какое-либо имя, оно должно присутствовать либо 
в списке @ЕХРОВТ, либо в списке @ЕХРОВТ_ОК. Таким образом, следующий 
запрос будет отклонен функцией Ехрогїег->ітрогі: 


иѕе М№ауідате : :Ѕеато0#Рапіѕ ам(ассогаіпо іо 0Р9); 


поскольку подпрограмма ассогӣіпо їо 6Р5 не определена ни в одном из 
списков. Благодаря этим двум спискам мы можем управлять общедос- 
тупным интерфейсом модуля. Но это не помешает любому желающему 
обратиться к подпрограмме №ауідаїе: : Зеаї0#Рапіѕ : ассогаіпо_+о_0Р5 (если 


1 Не забывайте, пустой список импорта и его отсутствие – это не одно и то 
же. Если список импорта пуст, функция іпрогї просто не вызывается. 

2 Под эту проверку попадают также опечатки и ошибочные имена подпро- 
грамм, и поэтому очень просто понять, почему, например, не работает под- 
программа деї ді гестіоп_ гот ргоѓеѕзог. 
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таковая существует), но, по крайней мере, они будут знать, что мы не 
собирались предложить эту подпрограмму для общего пользования. 


%ЕХРОКТ_ТАС5 


Не обязательно включать в список все функции и переменные, кото- 
рые будут импортироваться модулем. Достаточно создать ярлыки, или 
теги, и затем сгруппировать их под одним именем. В списке импорта 
перед тегом необходимо добавлять символ двоеточия. Например, в ба- 
зовом модуле Ғспі1 определены несколько констант 11оск, доступные 
как группа с тегом : 1оск: 


иѕе Еспт1 ам( :?1оск ); # импорт всех констант 11о0ск 


В документации к модулю Ехрогїег оговаривается, что некоторые теги 
уже определены по умолчанию. Тег ОЕРАШТ представляет группу имен 
подпрограмм и переменных, импортируемых из модуля по умолча- 
нию, как если бы список импорта вообще не был указан: 


иѕе М№ауідате : : Зеат0ТРапЕз ам(:БЕРАЦЕТ); 


В таком использовании тега ОЕРАЦЕТ нет большого смысла, но если не- 
обходимо в дополнение к именам по умолчанию импортировать еще 
что-нибудь, можно не вводить весь список, а просто указать: 


иѕе Маутдате: :Ѕеат0#Рапіѕ ам(:ВЕРАЦЕТ дет погіћ_ гот ргоҒеѕѕог); 


Однако такой прием достаточно редко встречается на практике. Поче- 
му? Дело в том, что прямое объявление списка импорта обычно служит 
для управления именами подпрограмм, вызываемых из программы. 
Последние примеры не гарантируют неизменность списка имен под- 
программ при переходе на более новую версию модуля, где в список по 
умолчанию могут быть добавлены дополнительные имена, которые 
в свою очередь могут вступать в конфликт с именами в самой програм- 
ме.! В некоторых случаях модуль может поставлять десятки и даже 
сотни имен. В таких модулях с целью облегчения импорта совокупно- 
стей имен применяются более совершенные приемы (описанные в до- 
кументации к модулю Ехрогїег). 


Для определения имен тегов в модулях можно использовать хеш %ЕХ- 
РОВТ_ТАб5. В качестве ключей хеша выступают имена тегов (без двоето- 
чия), а в качестве значений – анонимные массивы имен. 


раскаде Мау1дате: : ЅеатО#Рап+ѕ; 
иѕе раѕе ам(Ехрогїег); 


1 По этой же причине считается дурным тоном в новых версиях модуля вво- 
дить дополнительные имена в список импорта по умолчанию. Тем не ме- 
нее, если известно, что с момента выпуска первой версии некоторая функ- 
ция до сих пор не реализована, нет причин, по которым нельзя было бы 
вставить функцию-заглушку, например ѕир ассогаіпо їо 0Р5 {91е “еще не 
реализована" }. 
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оиг @ЕХРОВТ = дм(диеѕѕ аігесііоп Томага) 
оиг @ЕХРОВТ ОК = ом( 
де погіћ_Ргот_ ргоғеѕѕог 
ассогаіпо о 6Р5 
аѕк_ ће ѕкіррег_арои+ 
); 


оиг %ЕХРОВТ_ТАбЗ = ( 
а11 => [ @ЕХРОВТ, @ЕХРОВТ ОК 1], 
9р$ => [ ам( ассогаіпо То 6Р5 ) ], 
дігесііоп => [ ам( 
де погіћ_ Ргот ргоғеѕѕог 
ассогаӢіпо о 6Р5 
0иеѕ5_аігестіоп_ Томага 
аѕк_ ће ѕкіррег_арои+ 
2 
); 


Первый тег здесь, а11, включает все экспортируемые имена (входящие 
в состав списков @ЕХРОЋТ и @ЕХРОНТ_ОК). Тег 90$ включает в себя только 
подпрограммы, предназначенные для работы с СРВ (С1Іора1 Роѕіїіопіпе 
Бузбет — глобальная система позиционирования). Тег йі гесїіоп вклю- 
чает в себя все подпрограммы, связанные с определением направления 
движения. Теги могут содержать повторяющиеся имена (обратите 
внимание: подпрограмма ассогӣіпо їо 0Р5 включена в состав всех трех 
тегов). Независимо от того, как будут описаны теги, все имена, кото- 
рые они включают, должны находиться либо в списке @ЕХРОВТ, либо 
в списке @ЕХРОВТ_ОК. 


После того как будут определены теги экспорта, пользователь сможет 
определить по ним список импорта: 


иѕе М№ауідате: :Ѕеато#Рапіѕ дм( : дігесііоп); 


Экспорт имен в объектно-ориентированных 
модулях 


Как уже отмечалось, использование объектно-ориентированных моду- 
лей обычно заключается в обращении к методам класса и методам эк- 
земпляров класса, созданных с помощью конструкторов. Это подразу- 
мевает, что объектно-ориентированные модули, как правило, ничего 
непосредственно не экспортируют. Таким образом: 


раскаде Му: : 00Моаџ1е: : Ваѕе 
оиг @ЕХРОНТ = ( ); # эта строка может быть опущена 
иѕе раѕе ам(Ехрогїег) 


Как же породить дочерний класс от этого класса? Прежде всего необ- 
ходимо помнить, что метод іпрогї определен в классе Ехрогїег, поэтому 
в начало пакета следует вставить примерно следующие строки: 
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раскаде Му: : ООМоди1е: : Вегіуеа; 
иѕе раѕе ам(Ехрогтег Му: : ООМоди1е: :Вазе); 


А разве вызов Му: : О0Моаџ1е: : Вегіуеа->іпрогї не приведет в конечном сче- 
те к вызову метода класса Ехрогїег через Му: : ООМоди]е: :Вазе? Разумеет- 
ся, приведет. Поэтому упоминание класса Ехрогіег можно опустить: 


раскаде Му: : ООМоди1е: : Вегіуеа; 
иѕе раѕе ам(Му: : ООМоди1е: :Вазе); 


Упоминание класса Ехрогтег необходимо только в базовом классе, ко- 
торый служит основанием иерархии при условии, что он не наследует 
какие-либо другие классы. 


Постарайтесь ознакомиться со списком зарезервированных имен ме- 
тодов (на страницах справочного руководства к классу Ехрогїег), кото- 
рые нельзя использовать для именования методов в своих объектно- 
ориентированных модулях. К моменту написания этих строк список 
зарезервированных имен включал в себя ехрогі їо 1еуе1, геди1ге_мег- 
ѕіоп и ехрогі Ғаі1. Кроме того, желательно избегать имя ип1троге, по- 
скольку Рег| вызывает эту подпрограмму, когда директива изе заменя- 
ется на по. Это не часто встречается в модулях, написанных пользова- 
телями, но не редкость в таких директивах, как ѕїгісї и магпіпоѕ. 


Даже притом, что объектно-ориентированные модули ничего не экс- 
портируют, иногда бывает желательно экспортировать имена конст- 
рукторов или подпрограмм обслуживания модуля. Такие подпрограм- 
мы, как правило, работают как методы класса, но желательно, чтобы 
они были доступны пользователю как обычные подпрограммы. 


Рассмотрим в качестве примера библиотеку ІР, которая доступна 
в СРАМ как составная часть дистрибутива Шу\ум-рег1. Ныне модуль 
АГ: : ОВЕ считается устаревшим и был заменен модулем ИВТ, предназна- 
ченным для работы с универсальными идентификаторами ресурсов, 
которые обычно выглядят как обычные ОВГ,, например ЙА Ир: / /шши.5иИ- 
Псап.стеш.ћиі/ тарѕ/іѕіапа.ра}. Можно создать объект ИВТ: :ЈАІ посред- 
ством традиционного конструктора: 


иѕе ИВТ: : ОВЕ; 
ту Фи = ЦВТ: : ОА ->пем(' һр: //ммм. ді111дап. сгем. һи /тарѕ/іѕ1апа. рат °); 


Однако в список импорта модуля ВІ: ИВ входит подпрограмма и/1, 
которая также может применяться в качестве конструктора: 


иѕе ЦВТ: : ОВЕ; 
ту фи = иг1( һр: //ммм. 91111 д9ап. сгем. Ни /тарз/1$1апа. раё’); 


Поскольку данная импортируемая подпрограмма не является методом 
класса, при обращении к ней можно обойтись без оператора «стрел- 
ка». Кроме того, подпрограмма отличается от всего остального, что на- 
ходится в модуле, тем, что не получает имя класса в качестве первого 
аргумента. Поэтому, когда в пакете присутствуют как методы, так 
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и обычные подпрограммы, автор модуля должен оговорить порядок 
обращения к ним. 


Вспомогательная подпрограмма игі присутствовала в пакете с самого 
начала. Однако она вступала в конфликт с одноименной подпрограм- 
мой, экспортируемой модулем С6Т.рт, что приводило к появлению 
весьма интересных ошибок (особенно при настройке пой регі). Мо- 
дуль, который подгружался последним, выигрывал схватку. (В совре- 
менном интерфейсе модуля ВІ эта функция не экспортируется.) Ра- 
нее, чтобы избежать аварийного завершения программы, приходилось 
указывать пустой список импорта: 


иѕе ИВТ: :0ВЕ ( ); # не импортировать подпрограмму “иг1” 
ту Фи = ВТ: : ОВЕ->пем(...); 


Собственные подпрограммы импорта 


В качестве примера рассмотрим реализацию подпрограммы импорта 
в модуле ССІ. рт, после чего попробуем создать свою собственную под- 
программу. Не удовлетворенный невероятной гибкостью подпрограм- 
мы іпрогі из модуля Ехро ег, автор модуля С6Т.рип Линкольн Стейн 
(Глисош Ѕёеіп) создал собственную подпрограмму іпрогі специально 
для модуля СОТ. рп.! Если вам когда-нибудь придется познакомиться с 
необычайно богатым набором необязательных параметров, которые 
могут идти вслед за изе СОТ, вы наверняка зададитесь вопросом – как 
же все это работает? В этом нет ничего сложного — это лишь вопрос 
терпения программиста. Кстати, вы можете исследовать исходные 
тексты модуля самостоятельно. 


Данная версия функции 1трог{ позволяет работать с модулем (61 как 
с объектно-ориентированным: 


изе Сет; 
ту Фа = С61->пем; # создать объект запроса 
ту Ф? = $а->рагам( 'Роо’); # получить значение поля оо 


и как с процедурно-ориентированным модулем: 


иѕе СбІ ам(рагат); # импортировать подпрограмму рагат 
ту Ф# = рагат('#оо’); # получить значение поля Тоо 


Если не хотите указывать все возможные импортируемые подпрограм- 
мы, можете импортировать их так: 


иѕе ССІ 9м(:а11); # определить подпрограмму ‘рагат’ и еще 800 подпрограмм 
ту Ф? = рагат(' оо’); 


1 Некоторые разработчики использовали эту подпрограмму (известную как 
«Гапсош Гоа4ег» — «загрузчик Линкольна») из глубокого уважения к авто- 
ру и одновременно из страха перед необходимостью иметь дело с чем-то, что 
просто работает не так, как то, с чем им приходилось встречаться раньше. 


214 


Глава 15. Экспортирование 


Есть еще целый ряд вариантов применения дополнительных парамет- 
ров. Например, при желании можно запретить обработку полей с за- 
поминанием их содержимого, для этого достаточно добавить параметр 
-поѕііску в список импорта: 


иѕе ССІ дм(-поѕїіску :а11); 


Можно создать собственные подпрограммы ѕіагїі +ар1е и епа _+ар1е в до- 
полнение к другим, записав: 


иѕе ССІ дм(-поѕїіску :а11 *+ар1е); 


Список возможных параметров потрясает своим разнообразием. Как 
же Линкольну это удалось? Вы можете просмотреть исходные тексты 
модуля СОТ. рт, чтобы увидеть все своими глазами, а здесь мы покажем 
лишь самые основные моменты. 


Метод іпрогї – это обычный метод. Таким образом, его можно заста- 
вить сделать все, что только душе угодно. Мы уже показывали реали- 
зацию простой функции импорта (хотя и гипотетической) на примере 
модуля Е11е: :Вазепате. Теперь мы обойдемся без функции іпрогї из мо- 
дуля Ехрогїег и напишем собственную, которая будет экспортировать 
имена в пространство имен паіп. 


зиб ітрогі { 
по ѕігісі '‘геғѕ' 
Тог (ом(#11епате баѕепате ?і1ерагѕе)) { 
*{"таіп::$ "= \8$ ; 


} 


Такой прием эффективен только в том случае, если вызывающий па- 
кет имеет имя по умолчанию паіп, так как это имя жестко определено 
в подпрограмме. Но у нас есть возможность выяснить имя пакета «на 
лету» с помощью встроенной подпрограммы саПег. В скалярном кон- 
тексте эта подпрограмма возвращает имя вызывающего пакета: 


зиб 1трогЕ { 
по ѕігісї ‘гегз’ 
ту Фраскаде = са11ег 
Тог (ом(#11епате баѕепате Р11ерагзе)) { 
*{фраскаде . "::$_"} = \8$ ; 


} 


В списочном контексте подпрограмма са11ег возвращает гораздо боль- 
ше информации. 


зиб 1трогЕ { 
по ѕігісї ‘гегз’ 
ту( Фраскаде, $111е, $11пе ) = са11ег; 
магп "вызов из пакета фраскаде, в файле $111е\п”; 
Тог (9м(Е1]епате баѕепате Р11ерагзе)) { 


Упражнения 215 


*{фраскаде . "::$_"} = \8$ ; 


} 


Поскольку подпрограмма іпрогї — это самый обычный метод, любые ар- 
гументы, получаемые им, находятся в массиве @_(если вы еще помните, 
это список импортируемых имен). Можно проанализировать этот спи- 
сок и решить, что делать с каждым отдельным элементом. Давайте 
включим отладочный режим, если в списке импорта будет обнаружен 
параметр дед. Мы не будем импортировать подпрограмму с таким 
именем, а просто запишем в переменную $0ерид значение «истина», 
а затем произведем те же действия, что и раньше. Но на этот раз преду- 
преждение будет выдаваться, только если был включен режим отладки. 


зиб 1трогЕ { 
по ѕігісї ‘гегз’ 
ту $дерид = дгер { $_ ед ‘дебид’ } @; 
ту( Фраскаде, $111е, $11пе ) = са11ег 
магп “вызов из пакета Фраскаде, в файле $Р11е\п” і? Ферид; 
Тог (ом(Р1]епате Базепаме Ғі1ерагѕе)) { 
*{фраскаде . "::$_"} = \8$ ; 


} 


К аналогичным трюкам Линкольн прибегал при разработке модуля 
СОТ. Практически то же самое мы увидим в подпрограмме 1трог{ моду- 
ля Теѕі: :Моге, которая управляет порядком тестирования, когда будем 
рассматривать этот модуль в главе 17. 


Упражнения 


Ответы на эти вопросы вы найдете в приложении А в разделе «Ответы 
к главе 15». 


Упражнение 1 [15 мин] 


Возьмите библиотеку 0008600000, созданную вами в упражнении 1 гла- 
вы 10, и превратите ее в модуль, который можно будет подключать 
с помощью директивы иѕе. Измените программный код, обращающий- 
ся к библиотеке, таким образом, чтобы он мог использовать импорти- 
рованные подпрограммы (без указания полного имени подпрограмм, 
включающих имя модуля) и проверьте его. 


Упражнение 2 [15 мин] 


Измените предыдущий пример таким образом, чтобы имелась воз- 
можность указать тег экспорта а11. В случае, когда указывается тег 
а11, ват модуль должен импортировать все подпрограммы, имеющие- 
ся в библиотеке. 


иѕе Оодароодоо: : дате дм(:а11); 


Создание дистрибутива 


В главе 15 рассказывалось о вымышленном модуле Іѕ1апа; :Р10{11п9:: 
Марѕ и о том, как добавить в него поддержку импорта с помощью моду- 
ля Ехрогіег, чтобы этот модуль можно было подключить к программе 
посредством директивы изе. 


Файл . рп был нам полезен, но работать с ним неудобно. Прежде чем от- 
дать плоды своего труда другим разработчикам, которые могли бы ус- 
тановить наш модуль на своих машинах, необходимо выполнить еще 
целый ряд действий. 


Каталог установки 


Как сделать, чтобы Рег] смог найти модуль? Где в системе должен 
находиться программный код? Смогут ли пользователи, не обла- 
дающие привилегиями администратора системы, установить мо- 
дуль в каталог, где он будет доступен всем пользователям, или они 
должны будут устанавливать модуль в свой каталог? 


Документация 


Где должна находиться документация модуля? Как устанавливать 
документацию, чтобы сделать ее доступной пользователям? 


Полнота архива 


Следует ли включать в состав архива дополнительное ПО, в котором 
будут нуждаться пользователи? Что еще надо приложить к про- 
граммному коду модуля, чтобы сделать его пригодным для исполь- 
зования? 


Тестирование 


Как узнать, правильно ли работает программное обеспечение? Уве- 
рены ли мы, что оно делает все, что нам нужно? Как убедиться, что 
оно работает одинаково в разных операционных системах и с раз- 
ными версиями Ре!1? 
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Интерфейсы на языке С 


Как правильно описать порядок компиляции и сборки программно- 
го кода в окружающей среде разработчика или конечного пользова- 
теля, если в состав модуля входит программный код на языке С (об 
этом здесь говориться не будет)? 


Собрать дистрибутив можно разными способами 


Дистрибутив содержит в себе модуль (или набор взаимосвязанных мо- 
дулей) и дополнительные файлы с документацией, тестами и инструк- 
циями по установке модуля. Все эти файлы можно создать вручную, 
но гораздо удобнее воспользоваться программным обеспечением, кото- 
рое все это сделает за нас. 


В самом начале! дистрибутивы приходилось создавать вручную. Неко- 
торое время спустя появилась программа й2хз, которая автоматизиро- 
вала процесс сборки дистрибутивов, и ее возможностей вполне хвата- 
ло до некоторого времени. Затем Энди Лестер (Апау [еѕёег) создал мо- 
дуль Мойџ1е::$їагїег, предназначенный для создания дистрибутивов, 
Джим Кинан (ша Кеепап) разработал модуль Ех 1115: : Моди1еМакег, 
который улучшил программу й2х$, а также появилась масса других 
модулей, способных упростить процесс создания дистрибутивов.? 


Неважно, каким способом создается дистрибутив или какие инструмен- 
тальные средства при этом применяются, сам процесс остается неиз- 
менным. Мы запускаем сценарий на языке Ре! |, который создает файл, 
куда помещает все необходимое для подготовки и установки программ- 
ного кода. С его помощью можно протестировать и установить модуль. 


В случае использования традиционного Майе} 1е.РГ., процесс установ- 
ки начинается с команды: 


$ рег1 Маке11е. РЕ 


После этого можно проверить и установить модуль, дав команду таЁе 
и указав перечень действий, которые необходимо выполнить:3 


$ таке а11 +ез+ іпѕїа11 


Можно отказаться от файла Майе{е.РГ.. Он предполагает наличие 
внешней программы таѓе, которая изначально появилась как инстру- 
мент операционной системы ОМХ и потому может отсутствовать в дру- 


1 По крайней мере, когда Рег! 5 только появился, еще до выхода в свет сис- 
темных модулей сторонних разработчиков. 

2 Брайан просто создает каталог шаблона с помощью Егее из модуля Тетр- 
]Лате: :Тоо1кії. Об этой методике можно прочитать в декабрьском выпуске 
«Тһе Рег Јоџгпа1» за 2004 год: ћіір://шюшш.ірј.сот/аоситепіѕ/5=9622/ 
1р}0412е/0412е.һіті. 

3 Действия їеѕї и іпѕїа11 можно выполнить за одно обращение к утилите таЁе. 
Если в процессе работы будут обнаружены ошибки, она прервет установку. 
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гих операционных системах.! Кеном Вильямсом (Кеп У/ИПатз) был 
разработан модуль Моде: :Ви119, способный заменить таке. Так как 
заранее известно, что перед установкой модуля Рег| уже установлен, 
мы вполне можем использовать его для установки других модулей. 


Процесс установки с помощью модуля Моди]е: :Ви119 выглядит практи- 
чески точно так же, за исключением того, что в этом случае задейству- 
ется файл Виі1а.РІ. 


$ рег1 Виі1а. Рі 
После этого выполняются почти те же самые действия, что и прежде. 


рег1 Виі1а 
регі Виі1а +еѕ+ 
регі Виі1а іпѕ+а11 


При выборе того или иного способа обычно исходят из следующих со- 
ображений. Метод на основе Маѓеїіе.РІ применяется уже достаточно 
давно и корректно работает практически всегда за редким исключени- 
ем. Этот метод основан на использовании модуля ЕхіЏїі1$::Макетакег, 
который поставляется в составе дистрибутива Ре!1. К сожалению, Ех- 
101115: :Макетакег превратился в неповоротливого монстра, сложного 
для поддержки из-за необходимости учитывать особенности множества 
операционных систем, в которых работает Ре. Метод на базе модуля 
Моди1е: :Виі1а более современный, но еще не получил широкого распро- 
странения.? Однако он не требует наличия внешних инструменталь- 
ных средств, и поэтому многим будет проще работать с ним. 


Программа ћ2х5 


Здесь мы опишем метод на базе файла Маре Ше.РГ, и программы со 
странным именем й2х3.3 С помощью утилиты #2х$ мы создадим фай- 


1 ВОС У ш9домз существует утилита ппаке, разработанная в корпорации Мі- 
сгоѕо?+. 

2 И все же Моди1е: :Виі1а войдет в состав стандартного дистрибутива Рег! на- 
чиная с версии 5.10 и, скорее всего, станет стандартным способом установ- 
ки будущих версий других модулей. 

з Интересна история имени #2х3. В самом начале, как только появился Рег] 5, 
Ларри придумал язык ХБ для описания промежуточного программного ко- 
да, с помощью которого из сценариев на языке Рег| можно было бы обра- 
щаться к функциям из библиотек, написанных на языке С. Изначально этот 
программный код был написан вручную, а позднее была разработана утили- 
та #2х5, которая просматривала заголовочные файлы на языке С (файлы 
с расширением .л) и создавала соответствующий им код на языке ХВ. Отсюда 
и название / 2 (о) ХФ. С течением времени в программу было добавлено 
множество разнообразных функций, включая создание файлов шаблонов 
дистрибутивов. В этой главе мы будем рассматривать порядок использова- 
ния А2х8 для создания дистрибутивов, которые никакого отношения не 
имеют ни к заголовочным файлам, ни к языку ХЗ. Поразительно. 
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лы шаблонов, которые будут служить отправной точкой для создания 
дистрибутива. Для этого достаточно дать команду 12х$ -ХАп и передать 
ей имя модуля - в данном случае І51апа: : Р10їїіпд::Марѕ.! В результате 
на экране мы получим примерно такой вывод:? 


"Реғаџ1ї1іпо То браскмагаѕ сотратірі11їу міїћ рег1 5.8.7 

Г уои іпепа {11$ тоди1е фо ре сотратір1іе міїћ еаг1іег рег1 уегѕіопѕ, р1еазе 
зрес1Ру а тіпітит регі мегѕіоп міїћ +һе -6 орїіоп 

гіїіпо Іѕ1апа-Р1оііпо-Марѕ/116/151апа/Р1ої+і по/Марѕ.рт 

гітіпо ІѕЈапа-Р1оїїіпо-Марѕ/Макеғі1е. РЁ 

гітіпо ІѕЈапа-Р1оїіі по-Марѕ/ВЕАРМЕ 

гітіпо ІѕЈапа-Р1оїїіпо-Марѕ/+/151апа-Р1оїтіпо-Марѕ.ї 

гітіпо ІѕЈапа-Р1оїїііпо-Марѕ/Сһапдеѕ 

гітіпо Іѕапа-Р1оїііпо-Марѕ /МАМІҒЕЅТ 


Файл МАМІЕЕЅТ 


Программа А2х% создала каталог и несколько файлов в нем. Это прак- 
тически те же файлы, которые создаются другими инструментальными 
средствами, предназначенными для создания дистрибутивов. Даже ес- 
ли вы откажетесь от программы й#2х3, вам все равно необходимо будет 
понимать содержимое этих файлов. Перейдем к рассмотрению файла 
МАМТЕЕБТ, в котором содержится список файлов дистрибутива. Файл 
МАМТЕЕБТ начинается со строк:3 


Сһапдеѕ 

Макег11е. РІ 

МАМІҒЕЅТ 

ВЕАРМЕ 
+/151апа-Р1о++іпо-Марѕ.ї 
110/151апа/Р1о+тіпо/Марѕ. рт 


Файл манифеста на самом деле представляет собой оглавление дистри- 
бутива. Когда наступит время создания архива, в его состав будут 
включены все файлы, перечисленные в манифесте. Когда дистрибутив 
будет устанавливаться конечным пользователем, программа установ- 
ки проверит наличие в архиве всех файлов, перечисленных в манифе- 
сте. Собственно, все уже готово к созданию архива. Для этого сначала 
следует запустить сценарий МакќеГіе.РІ. После этого в каталоге по- 
явится новый файл Маѓејіе. 


$ регі Маке?і1е. РЕ 
$ таке +агаіѕі 


Если в дистрибутив включаются несколько модулей, то в команде надо 
указать имя главного модуля. Остальные можно добавить позднее. 

2 У вас может получиться не совсем то же самое, например из-за различия 
версий Рег]. 


з Содержимое файла у вас также может отличаться в зависимости от версии 
Регі. 
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Если вместо архива Таг надо создать гір, то замените последнюю ко- 
манду на: 


$ паке 219151 


Сопровождение файла манифеста может показаться делом достаточно 
сложным, но мы уверены, что в дистрибутив не попадут случайные 
файлы, которые просто оказались «не в то время не втом месте». Позд- 
нее будет показано, как обновить файл манифеста. 


Файл КЕАОМЕ 


Следующий файл – это файл ВЕАОМЕ. Стандартный файл, в котором 
содержится краткая информация, необходимая пользователям для 
беглого знакомства с модулем. Общепринято включать в этот файл, по 
крайней мере, краткое описание модуля, инструкции по установке 
и сведения о порядке лицензирования. 


Іѕ1апа-Р1оїі1по-Марѕ уегѕіоп 0.01 


Файл ВЕАБМЕ содержит краткое описание модуля, инструкции по установке, 
перечень зависимостей, которые могут быть (например, требования к наличию 
компилятора языка С и установленных библиотек), и любые другие сведения 
которые необходимо знать прежде, чем модуль будет установлен. 


Файл ВЕАОМЕ обязательно должен входить в состав модулей, распространяемых 
через СРАМ, поскольку в СРАМ файл ВЕАОМЕ будет извлечен из дистрибутива 
модуля и выложен для просмотра потенциальными пользователями модуля. 

Как правило, этот файл должен содержать информацию о версии модуля, чтобы 
пользователи могли принять решение, стоит ли загружать и устанавливать 
этот модуль у себя. 


УСТАНОВКА 


Чтобы установить этот модуль необходимо выполнить 
следующую последовательность команд: 


рег1 Маке?і1е. РЕ 
таке 
таке Ёеѕї 
паке 1п${а11 


ЗАВИСИМОСТ 
Этот модуль требует наличия следующих модулей и библиотек: 
бла бла бла 


АВТОРСКИЕ ПРАВА И ЛИЦЕНЗИЯ 


Здесь должна находиться информация об авторских правах. 


Соругіодһ+ (С) 2005 Бу @1пдег бгапї 
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Данная библиотека является свободно распространяемым программным 
обеспечением. 

Допускается ее свободное распространение и/или изменение на тех же условиях, 
что и сам Рег], либо Рег] версии 5.8.7 или любой более поздней версии Рег] 5, 
которая может быть установлена у вас. 


Вполне очевидно, что этот файл придется отредактировать, чтобы 
включить в него все, что вы захотите сообтцить. Фраза «бла-бла-бла» 
(ав Ыаһ Ыаһ) очень часто выступает в качестве заполнителя и впо- 
следствии заменяется реальным текстом.! Если подобные шаблоны, 
созданные программой #2х3, оставить без изменения, у потенциально- 
го пользователя появятся подозрения, что и сам программный код мо- 
дуля содержит массу ошибок и неточностей. Поэтому подобные шаб- 
лоны необходимо отредактировать (как и программный код), прежде 
чем выпустить дистрибутив в свет. 


Особое внимание обращайте на раздел с описанием авторских прав 
и лицензии. (Здесь должно стоять ваше имя, а не «Джинджер» (Сбіп- 
сег), если, конечно, ваша машина точно знает, кто сидит за ее клавиа- 
турой.) Ваш заказчик может потребовать изменить указание на автор- 
ские права, чтобы, например, включить название своей компании, 
а не ваше имя. Если вы включаете в состав дистрибутива чужой про- 
граммный код, то, может быть, надо упомянуть и об авторских правах 
на него. 


Кроме того, файл ВЕАОМЕ имеет специальное назначение: в СРАМ 
этот файл автоматически извлекается из архива и передается поиско- 
вым системам различных всемирных архивов для индексирования. 
Инструментальные средства для работы с СРАМ позволяют загружать 
файлы ВЕАШМЕ, не загружая при этом сами дистрибутивы. Напри- 
мер, в командной оболочке СРАМ. рт можно дать следующую команду:? 


$ рег1 -МСРАМ -езпе11 
срап> геадте Т$1Тапа: : Р101їіпо: :Марѕ 


В модуле СРА\РІ05, преемнике СРАМ. рп, есть аналогичные команды: 


$ рег1 -МСРАМРІОЅ -еѕће11 
срапр> г Іѕ1апа: : Р10їїіпо: :Марѕ 


В зависимости от версии Рег1 у вас может быть установлена программа 
срап или срапр: 


$ срап 
срап> геадте Т$1Тапа: : Р101їіпо: :Марѕ 


1 Ради интереса можете попробовать поискать в СРАМ№ все места, где встреча- 
ется фраза б1аһ Бай 01аћ. 

2 Вы могли бы сделать это, если бы модуль І51апа: :Р10їїіпо::Марѕ действи- 
тельно находился в СРАМ. 


222 Глава 16. Создание дистрибутива 


Файл Сһапдеѕ 


В файле Сйапхез содержится история развития модуля. Обычно поль- 
зователи просматривают этот файл, чтобы узнать о появившихся ново- 
введениях и решить, стоит ли обновлять свою версию.! В этом файле 
должна указываться информация об обнаруженных и исправленных 
ошибках, о дополнительных функциональных возможностях и о сте- 
пени важности внесенных изменений (то есть обязательно ли всем, кто 
пользуется модулем, обновлять версию). 


$ саї Спапдез 
Веу1з$1оп П1зфогу Гог Рег] ехїепѕіоп І51апа: : Р10їїіпо: :Марз. 


0.01 Меа Осі 16 15:53:23 2002 
- огідіпа1 уегз1оп; сгеатеад ру һ2хѕ 1.22 міїћ орїіопѕ 
-ХАп Іѕ1апа: : Р10ї+іпо: : Марѕ 


Этот файл должен поддерживаться и изменяться вручную, если среда 
разработки не предоставляет инструментальных средств, способных 
делать это автоматически. Он может использоваться для отслежива- 
ния изменений и их влияния на появление ошибок: если известно, что 
некоторая ошибка проявилась тремя выпусками раньше, можно будет 
попробовать проанализировать ее взаимосвязь с теми новшествами, 
что появились в то время. 


Файл МЕТА.уті 


Самые свежие версии инструментальных модулей создают в дистрибу- 
тиве файл МЕТА.уті, где в удобочитаемом виде содержится информа- 
ция о модуле. Сведения в этом файле представлены в формате ҮАМІ,, 
о котором уже говорилось в главе 6. 


# һр: //моди1е-6и119. зоигсетогде. пе /МЕТА-зрес. ћіті 

НХХХХХХХ Тћіѕ 15 а ргоїоїуре!!! ІТ мі11 сһапде іп тие Тифиге!!! ХХХХХ# 
папе : НТТР-517е 

уегѕіоп: 0.91 

уегѕіоп_ гот: 110/517е. рт 

іпѕіа1141г5: 5іїе 


геди1гез: 
НТМЕ: :ЅітріеііпкЕх+ог: 0 
НТТР: : Ведиеѕі: 0 
ОВІ: 0 


аіѕігіритіоп_ уре: моди1е 
депегатеа ру: ЕхїЏ+Ъ115: : МакеМакег уегѕіоп 6. 17 


1 Почему может возникнуть желание отказаться от обновления версии? 
Многих вполне может удовлетворять (и вполне оправданно) то, чем они 
уже обладают. Зачем тогда рисковать и загружать новую версию, в которой 
могут содержаться новые ошибки? 
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Файл с таким содержимым был у меня создан модулем Ех+11{ 115$: :Маке- 
Макег. В процессе создания архива дистрибутива этот файл будет авто- 
матически создан сценарием МаЁее, добавлен в список в файле МА- 
МТЕЕБТ и включен в состав дистрибутива. Другие инструментальные 
средства, о которых будет рассказано в главе 19, смогут с помощью это- 
го файла извлечь необходимые сведения о модуле, избежав необходи- 
мости запускать какой-либо программный код из дистрибутива. 


Прототип модуля 


Наконец мы подошли к самой важной части дистрибутива – к про- 
граммному коду. 


раскаде Іѕ1апа: : Р1от{1п9д: :Марз; 


Пока все выглядит неплохо. Модуль начинается с необходимой дирек- 
тивы раскаде. За ней следуют стандартные директивы. 


иѕе 5.008007; 
иѕе Ѕїгісі; 
иѕе магпіпо$; 


Здесь объявлено, что модуль совместим с Рег] 5.8.7 или более поздней 
версией и что ограничения компилятора и вывод предупреждений раз- 
решены по умолчанию. Мы приветствуем подобную практику. Разуме- 
ется, эти строки могут быть удалены или изменены. Если известно, что 
модуль сможет работать под управлением Рег] более ранней версии, 
можно соответствующим образом изменить строку изе 5.008007; (или 
вообще удалить ее). 


Далее следуют строки, которые выполняют экспорт функций и пере- 
менных модуля в пакет, подключающий данный модуль. Все необхо- 
димые действия будут выполнены модулем Ехрогіег, предоставляю- 
щим метод іпрогі, о чем рассказывалось в главе 15. 


геди1ге Ехрогтег; 
оиг @ІЅА = ом(Ехрогїег); 


Эти строки типичны для необъектно-ориентированных модулей, по- 
скольку объектно-ориентированные модули ничего не экспортируют — 
принцип их действия основан на обращении к методам класса. Таким 
образом, мы заменим строки, связанные с подключением модуля Ех- 
рогіег, на строки объявления базового класса, который наследуется 
нашим классом, если таковой существует. 


иѕе раѕе дм(бео: :Марѕ); 


Затем мы должны добавить некоторые сведения, необходимые для 
класса Ехрогтег, а все остальное сделает программа #2хз. Нам надо оп- 
ределить (можно и не определять) три переменные: 


сиг %ЕХРОВТ_ТА@5 = ( 'а11° => [ ам( 
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21); 

оиг @ЕХРОВТ_ОК = ( @{ $ЕХРОВТ_ТАбЗ{‘а11°} } ); 
оиг @ЕХРОВТ = ам( 

); 


Массив @ЕХРОВТ должен содержать имена всех переменных и подпро- 
грамм, которые будут автоматически импортированы вызывающим 
пакетом. Все они будут видны в вызывающем пакете, если мы не опре- 
делим иначе. 


иѕе І51апа: :РТо1п4::Марз; # импортировать все, что включено в массив @ЕХРОВТ 


Ничего импортироваться не будет, если определить пустой список им- 
порта. 


иѕе 15]апа: :Р10ї+іпд: :Марѕ ( ); # ничего не импортировать 


В массиве @ЕХРОАТ_ОК содержатся имена всех переменных и подпро- 
грамм, которые могут быть импортированы, если их явно указать 
в списке импорта (неявно @ЕХРОВТ_0К включает в себя имена, находя- 
щиеся в массиве @ЕХРОВТ). Переменные и подпрограммы, имена кото- 
рых отсутствуют в этих массивах, не смогут быть импортированы ди- 
рективой изе. 


иѕе Т$1апа: :Р10ї+іпо: :Марз ( ); # ничего не импортировать 


Хеш %ЕХРОНТ_ТАб$ позволяет присваивать имена группам переменных 
и функций, что дает возможность импортировать целые группы имен, 
не заставляя пользователя слишком много вводить с клавиатуры. 
Ключи хеша %ЕХРОВТ_ТАб$ — это имена групп, а значения — анонимные 
массивы имен, принадлежащих данной группе. В списке импорта ди- 
рективы изе имена тегов должны предваряться символом двоеточия.! 


иѕе Іѕ1апа: :Р10ї+іпо: :Марѕ дм(:а11) 


Определив информацию для класса Ехрогіег, создадим переменную с но- 
мером версии модуля. 


оиг $\УЕВЗТОМ = ‘0.01’; 


Номер версии имеет большое значение по многим причинам, и ему не- 
обходимо уделять особое внимание: 


Уникальность идентификации 


Номер версии будет идентифицировать конкретный выпуск кон- 
кретного модуля после его выхода на просторы Интернета. 


1 Тег :а11 можно не указывать, поскольку регулярное выражение /^/ (данно- 
му регулярному выражению соответствуют любые символы с начала стро- 
ки) делает то же самое. Однако многие привыкли к тегу :а11, потому что 
смысл его более прозрачен, чем /^/. 
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Выбор имени файла архива 


Имя файла архива с дистрибутивом по умолчанию включает в себя 
номер версии главного модуля. Сервер РАПЗЪЕ не позволит дважды 
выгрузить файл с одним и тем же именем, таким образом, если про- 
граммный код модуля изменился, а номер версии нет, мы рискуем 
испытать несколько неприятных минут. 


Идентификация обновлений 


Вообще увеличение номера версии свидетельствует о замещении 
предыдущих версий. При сравнении номеров версий числа рас- 
сматриваются как числа с плавающей запятой, по этой причине но- 
мер версии 2.10 (фактически 2.1) считается меньше номера 2.9 
(2.90 – если следовать той же логике). Чтобы избежать возможных 
конфликтов, если в номере версии два знака после запятой, то при 
выпуске очередной версии номер так же должен содержать два зна- 
ка после запятой.! 


Стабильность интерфейса 


Номера версий, начинающиеся нулем, считаются альфа- или бета- 
версиями продукта с неустоявшимся внешним интерфейсом, кото- 
рый может еще претерпеть некоторые изменения. Кроме того, из- 
менение старшего номера версии (от 1.х до 2.х ит. д.) многими рас- 
ценивается как признак нарушения совместимости снизу вверх ме- 
жду версиями. 


Распознаваемость разнообразными инструментальными средствами 
СРАМ 


Инструментальные средства управления дистрибутивами в СРАМ 
используют номер версии для поиска конкретного выпуска, а инст- 
рументальные средства установки модулей из СРАМ помогают оты- 
скать отсутствующие или устаревшие дистрибутивы. 


Распознаваемость операторами языка Рей 


Директиве изе можно передавать не только имя подключаемого мо- 
дуля, но и номер его версии вместе со списком импорта (или вместо 
него), заставив ее тем самым терпеть неудачу, если фактическая 
версия импортируемого модуля ниже указанной: 


иѕе 151апа: :Р101{1п9::Марз 1. 10 ам{ тар_дебиддег }; 


Вообще нумерацию версий можно начинать с 0.01, как указано в шаб- 
лоне, и затем последовательно увеличивать его с каждым новым вы- 


1 Документ «Рей Веѕё Ргасіісеѕ» рекомендует оформлять номера версий 
в виде строк, состоящих из трех частей, например 4\(1.2.3). Но такая нуме- 
рация версий не получила широкого применения из-за того, что для анали- 
за таких номеров необходим модуль \ег$1оп. рп (который к тому же не вхо- 
дит в состав дистрибутива Рег1). Кроме того, такое оформление не поддер- 
живается общераспространенными инструментальными средствами и вле- 
чет за собой некоторые лексические проблемы. 
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пуском.! Теперь мы переходим от заголовочной информации к сердцу 
модуля. В шаблоне это место определено комментарием: 


# Рге1оааеая пеїћоаѕ до һеге. 


Надеюсь, вы не думали, что программа 12х$ напишет программный код 
модуля за вас? В любом случае в этом месте должны находиться под- 
программы, которым могут предшествовать описания переменных мо- 
дуля (со спецификатором пу) и нескольких переменных пакета (со спе- 
цификатором оиг, появившимся в новых версиях Рег1). Вслед за исход- 
ными текстами подпрограмм желательно вставить завершающее вы- 
ражение, которое возвращает значение «истина»: 


1; 


благодаря которому функция гедиіге (внутри директивы изе) не будет 
вызывать аварийное завершение программы. 


Встроенная документация 


Сразу же вслед за последним выражением, возвращающим значение 
«истина», вы найдете маркер __ЕМ__. За двумя символами подчерки- 
вания следует слово Е\0, за которым опять следуют два символа под- 
черкивания. Этот маркер стоит в начале строки и сразу же за ним рас- 
положен символ перевода строки: 


ЕМ 


Маркер сообщает Рег], что в этом месте заканчивается программный 
код и синтаксический анализатор Рег| может завершить свою работу.? 
Вслед за маркером __Е\№0__ находится встроенная документация к мо- 
дулю: 


# Ниже находится пример документации к модулю. 
# Желательно, чтобы вы отредактировали ее! 


=һеай1 МАМЕ 
Іѕ1апа: :Р1оїііпо: :Марѕ - Рег1 ехїепѕіоп Рог БЛай Б1ай Баһ 
=һеаа1 5ҮМ№ОР515 


иѕе Іѕ1апа: : Р10їт1по: :Марз; 
Лай о1аһ раһ 


=Пеад1 АВЅТВАСТ 


1 На страницах справочного руководства к рег1тод имеется пример извлече- 
ния номера версии модуля непосредственно из системы управления вер- 
сиями СУБ/ВСВ. 

2 Данные, следующие за маркером __Е\№0__, можно прочитать с помощью де- 
скриптора файла ВАТА, который представляет собой хороший способ вклю- 
чить в программу небольшой объем данных. Однако здесь он используется 
совсем с другой целью. 
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Здесь должно находиться краткое описание модуля І51апа: : Р10їТіпо: :Марз. 
Это описание будет использовано при создании файлов РРР 

(Рег1 Раскаде Веѕсгір+іоп 
Если вы не собираетесь создавать краткое описание, тогда 

отредактируйте файл Маке?і1е.Рі и удалите из него параметр АВЗТВАСТ_ЕВОМ. 


=һеаа1 ОБЕЗСАТРТТОМ 


< 


аблон документации к модулю Іѕ1апа: : Р1о{11п9: :Марѕ. Создан программой ћ2х5. 
Похоже, автор модуля оказался настолько небрежным, что оставил 
этот шаблон без должного внимания. 


В1аһ раһ Бай. 
=һеаа1 ЕХРОВТ 


По умолчанию - ничего. 
=һеаа1 ЅЕЕ АЁ$0 


Здесь можно поместить ссылки на другую документацию, такую как 
описание дополнительных модулей или документация к операционной 
системе (например, на страницы справочного руководства 0С ИМТХ), 

или на внешние документы, например ВЕС или стандарты. 

Если для вашего модуля существует список рассылки, упомяните его здесь. 
Если у модуля имеется собственный веб-сайт, упомяните его здесь 


=һеаа1 АУТНОВ 

біпдег бгапі, <91пдег@1$1апа. сосопеї> 
=һеад1 СОРҮВІСНТ АМО ЕТСЕМЗЕ 
Соругіодһі 2006 Бу @1пдег @гапе 


Данная библиотека является свободно распространяемым программным 
обеспечением. 

Допускается ее свободное распространение и/или изменение на тех же условиях, 
что и сам Рег1 


=сиї 


Данная документация имеет формат РОР, описание которого можно 
найти на страницах справочного руководства к рег1рой. Как и само имя 
Ре, название РОР можно интерпретировать по-разному. Например, 
Рег! Опіпе Оосишета оп (встроенная документация Рег1) или Р]1аш 
Оа Росотеп+аћіоп (обычная старая документация). Для большинства 
же из нас это просто РОР. 


Как говорится в шаблоне, желательно отредактировать отдельные части 
текста, чтобы они соответствовали вашему модулю. В частности, счита- 
ется дурным тоном оставлять в документации шаблоны 01а! б1аһ Бан. 


В процессе установки модуля информация в формате РОР автоматиче- 
ски извлекается из него, и на ее основе будет создана документация 
в формате, характерном для той или иной операционной системы, на- 
пример в формате страниц справочного руководства в ОМХ или в фор- 
мате НТМГ.. Кроме того, с помощью команды рег190с можно будет оты- 
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скать документацию в формате РОР в установленных сценариях и мо- 
дулях и вывести ее на экран. 


Самое замечательное в формате РОР то, что описание программного 
кода может перемежаться с самим программным кодом. Все директи- 
вы РОР (строки, начинающиеся с символа знака равенства) произво- 
дят переключение режима работы интерпретатора из режима Ре! (ин- 
терпретация программного кода) в режим РОР (интерпретация текста 
документации), а директива =си{ производит обратное переключение 
режима. Например, в модуле Т$1апа: : Р10їїіпо: :Марз у нас имеются три 
подпрограммы. Поэтому окончательный вариант файла, содержащий 
программный код, перемежаемый документацией с его описанием, 
может выглядеть примерно так: 


раскаде Іѕ1апа: : Р10її1пд: :Марз; 
[... ЅЕиРЕ аомп То һе Ф\УЕНЗТОМ ѕеїііпо абоуе ...] 


=һеай1 МАМЕ 
Т$1апа: :Р1о{{1па::Марз - Выводит карты острова 
=һеаа1ї 5УМОРЗТ$ 


иѕе Іѕ1апа: :Р1от{1п9: :Марѕ 

10оаа тар(" /иѕг/ѕһаге/тар/һамаїіі. тар”) 
эса1е_тар(20, 20) 

дгам тар(+5Т000Т); 


=һеаа1 ОЕЗСАТРТТОМ 


Этот модуль предназначен для рисования географических 
карт. [остальное описание ] 


=оуег 
=1{ет 1оаа тар(Ф#і1епате) 

Данная функция [ остальное описание ] 
=сиЇ 


ѕир 1оаа тар { 
ту Ф?і1епате = 5һіғ+; 
[ остальная часть подпрограммы ] 


} 

=іїет ѕса1е тар($х, $у) 

Данная функция [ остальное описание ] 
=сиї 


ѕир ѕса1е тар { 
пу ($х, $у) = (ѕһі?Е, 5һіҒ?+) 
[ остальная часть подпрограммы ] 


} 
=1{ет агам тар($#і1еһапа1е) 


Данная функция [ остальное описание ] 
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=сиї 


ѕир агам тар { 
ту $Е11епапа1е = ѕ=һћіҒғ; 
[ остальная часть подпрограммы ] 


} 
=раск 
=һеаа1 ЅЕЕ А50 


“Основы чтения географических карт для чайников” 
“Первые помощники: почему они не капитаны” 
Обязательно пообщайтесь с Профессором. 


=Пеад1 АЏТНОЋ 
біпдег бгапї, <91пд9ег@1$1апа. сосопеї> 
еад1 СОРҮВІСНТ АМО ЕТСЕМЗЕ 
Соругіодһі 2006 Бу @1пдег @гапе 


Данная библиотека является свободно распространяемым программным 
обеспечением. 

Допускается ее свободное распространение и/или изменение на тех же условиях, 
что и сам Рег1 


=сџї 
1; 


Как видите, описание подпрограмм находится непосредственно перед 
подпрограммами, и теперь, изменив саму подпрограмму, будет проще 
отразить эти изменения в описании к ней. (Устаревшая документация 
порой хуже, чем ее отсутствие, потому что при отсутствии документа- 
ции пользователь вынужден будет выяснять назначение подпрограм- 
мы по ее исходным текстам.) Многие модули в СРАМ“ следуют такому 
стилю оформления. Недостатком такого подхода является увеличение 
времени компиляции, поскольку синтаксический анализатор Рег! вы- 
нужден затрачивать некоторое время на прохождение директив РОО. 


Неважно, каким образом оформлена документация в модуле - в конце 
файла или перемежается программным кодом (как было показано 
в предыдущих параграфах), главное, чтобы вы не забывали писать ее. 
Даже если модуль пишется исключительно для себя самого, через не- 
сколько месяцев, в течение которых ваш мозг был занят решением 
42 000 других задач, вернувшись к этому модулю, вы будете рады уви- 
деть описания. Документация чрезвычайно важна. 


Управление дистрибутивом 
с помощью МакКеї#іе.Рі 
Разработчики Рег| выбрали стандартную для операционной системы 


ОМІХ утилиту таке в качестве основного инструмента сборки и уста- 
новки Ре!|. Тот же самый механизм служит для установки дополни- 
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тельных модулей. Даже в операционной системе, отличной от ОМІХ, 
должна иметься таЁе-подобная утилита. Например, в ЈС Міпаожѕ мо- 
жет присутствовать утилита АтаЁе или другие аналогичные програм- 
мы. Команда рег] -\:таке подскажет вам точное название таЁе-подоб- 
ной программы. Если она выведет паке= 'ппаке', то можете применять 
птаЕе везде, где применяется таѓе. В любом случае вам необходимо 
будет вызывать утилиту таЁе для файла МаЕе{Ше, название которого, 
впрочем, также может изменяться. 


Создание файла Маѓеіе представляет собой задачу трудоемкую и мно- 
гократно повторяющуюся. Не лучше ли выполнять сложные и повто- 
ряющиеся действия с помощью программы? Поскольку речь зашла о до- 
полнительных модулях, то сам Рег| уже установлен, и не пора ли соз- 
дать с его помощью Майе е? 


Всякий дистрибутив должен содержать файл Майе е.РГТ,, который 
представляет собой программу на языке Ре!1, предназначенную для соз- 
дания файла МаЕе{{е. После создания этого файла можно будет решить 
все остальные задачи посредством утилиты таѓе (или аналогичной). 


Программа #2х3 генерирует заготовку программы Маѓеѓіе.РІ, к кото- 
рой, скорее всего, вам даже не придется прикасаться, если в составе 
дистрибутива предполагается распространять единственный модуль: 


$ саї Маке?і1е. РЕ 

иѕе 5.008; 

иѕе Ехі0Т115: : МакеМакег 

# За дополнительной информацией о том, как влиять на содержимое Маке?і1е 
# обращайтесь к 116/Ех{0111$/МакеМакег. рт 


Мгі+ъеМаке+#11е( 
"МАМЕ" => 'Іѕ1апа: ;: Р10їііпо: :Марз’ 
"УЕВЅІОМ№ ЕАОМ` => 'Марз.рт’, # отыскивает ФУЕВТОМ 
"РВЕВЕО РМ ' => { }, # например, Моди]е: :Мате => 1.1 


($] >= 5.005 ? ## Добавляет ключевые слова, появившиеся в версии 5.005 
(АВТВАСТ РВОМ => 'Марѕ. рт’, # извлекает краткое описание из модуля 
АУТНОВ => '‘біпдег бгапі <91пдег@1$1апа. сосопет>') : ()), 
) 


Да, это программа на языке Ре!1. Подпрограмма МгііеМакеѓі1е, которая 
создает Маћеѓіїе, определена в модуле ЕхіЏїі1$: : МакеМакег (входит в со- 
став дистрибутива Рег). Как разработчик модуля вы можете исполь- 
зовать эту программу для сборки и проверки модуля и для создания 
файла дистрибутива: 


$ рег1 Маке?і1е. РЕ 

Сһескіпд 1? уоиг К1Т 1$ сотр1еїе... 

оокѕ 9009 

Мг1іпо Маке?і1е Гог Іѕ1апа: : Р10оїїіпд: :Марѕ 


Конечный пользователь вашего дистрибутива сможет выполнить ана- 
логичную команду у себя на компьютере. Однако у него Маѓеїіе на- 
верняка будет отличаться от вашего — это зависит от того, куда выпол- 
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няется установка, какие локальные политики применяются и даже от 
того, какой компилятор языка С установлен и какие инструкции свя- 
зывания должны применяться в данной архитектуре. Такой подход 
прекрасно зарекомендовал себя за долгие годы практики. 


Процесс создания Маре е.РТ, (и соответственно получающегося Ма- 
Еее) отличается высокой степенью гибкости. Например, имеется 
возможность запросить у пользователя, устанавливающего ваш мо- 
дуль, имя каталога, где находятся другие библиотеки и инструмен- 
тальные средства, или получить дополнительные параметры, необхо- 
димые для выполнения разнообразных действий.! 


Параметр РВЕНЕО_РМ очень важен, если работоспособность модуля зави- 
сит от других модулей, которые не входят в состав стандартного дист- 
рибутива Рег1, особенно если планируется передача модуля в СРАМ. 
Корректная работа со списком предварительно установленных моду- 
лей поможет сделать установку вашего модуля практически безболез- 
ненной, и вапти пользователи будут благодарны вам за это. 


Изменение каталога установки (РКЕҒІХ=...) 


Файл МаЕее, создаваемый программой Маре Ше.РТ, с параметрами 
по умолчанию, предполагает установку модуля в системный каталог 
Рег, который доступен всем программам Рег] через встроенную пере- 
менную списка каталогов @ТМС. 


Однако на этапе тестирования модуля вы наверняка не захотите уста- 
навливать его в общесистемный каталог, поскольку это может привес- 
ти к уничтожению предыдущей установленной версии модуля и к поте- 
ре работоспособности всех программ, которые используют этот модуль. 


Кроме того, если вы не обладаете привилегиями системного админист- 
ратора, скорее всего общесистемный каталог будет вам недоступен для 
записи, поскольку в противном случае любой пользователь смог бы 
внедрить в систему троянскую программу.? 


К счастью, МаЁе{е создает все условия для изменения каталога уста- 
новки сценариев, страниц справочного руководства и библиотек. Са- 
мый простой способ изменить каталог установки состоит в том, чтобы 
определить значение параметра командной строки РВЕҒІХ: 


$ рег1 Маке?і1е. РІ РВЕРТХ=”/Тез{1п9 


1 Старайтесь свести число запросов к минимуму. Большинству пользовате- 
лей не нравится, когда им задают много вопросов, особенно если выполня- 
ется лишь обновление версии модуля. Если возможно, сохраняйте ответы 
на вопросы в файле с настройками модуля, чтобы в следующий раз, когда 
будет производиться обновление версии модуля, программа установки мог- 
ла взять их как значения по умолчанию. 

2 Даже если вы не являетесь системным администратором, рано или поздно 
вы вполне сможете получить все его привилегии. 
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Сһескіпд 1? уоиг К1Т 1$ сотр1іеїе... 
Іоокѕ 9009 
Мг1ъіпо Маке?і1е Гог Іѕ1апа: : Р10їїіпд: :Марѕ 


Сообщения, выводимые в процессе работы программы, никак не свиде- 
тельствуют об изменении каталога установки, тем не менее теперь сце- 
нарии будут устанавливаться в каталог $РВЕРІХ/ріп, страницы справоч- 
ного руководства — в $РВЕҒІХ/пап, а библиотеки — в $РАЕҒІХ/110/51іїе регі. 
В данном случае установка будет произведена в подкаталог Теѕііпо, на- 
ходящийся в домашнем каталоге. 


Если вы занимаетесь сопровождением библиотек, используемых груп- 
пой разработчиков, вы могли бы указать, например, такое значение 
параметра: 


$ рег1 Маке?і1е. Рі РВЕҒІХ= /раїћ/+о/ѕһагед/агеа 


что приведет к сборке и установке файлов в каталог общего пользова- 
ния. Разумеется, при этом вы должны обладать правом записи в этот 
каталог. Остальным членам команды достаточно добавить путь к ката- 
логу т в переменную РАТН, путь к каталогу тап в переменную МАМРАТН и 
путь к каталогу [їр/ѕіѓе регі к списку @1\С, как это было показано ранее. 


Тривиальная команда таке +еѕї 


Тестирование, тестирование и еще раз тестирование. Более подробно 
о тестировании мы поговорим в главах 17 и 18, а здесь дадим лишь 
краткое введение. 


Тестирование имеет особое значение. Прежде чем устанавливать свой 
программный код, необходимо убедиться в том, что он хотя бы компи- 
лируется. Это делается с помощью недавно созданного файла Маѓеѓіе 
простой командой паке 105+: 


$ таке +еѕї 

ср Марѕ. рт 0110/110/151апа/Р1оі+іпо/Марѕ. рт 

РЕВ Ві МОМА2Ү=1 /изг/1оса1/61п/рег1 "-МЕхЕЈТі 15: : Соттапа: : ММ" "-е” " 
еѕі һагпеѕ5(0, 

%0110/1160`, '`Б11р/агсһ'`)” +/*.+ 

1/1... .ок 

А11 їеѕїѕ зиссез$Ри]1 

Ғі16ѕ=1, Тез{$=1, 1 ма11с1оск $6сѕ ( 0.08 сизг + 0.04 сзуз = 0. 12 СРИ) 


Что значат все эти строки? 


Сначала файл .рт был скопирован в каталог «испытательного полиго- 
на»: подкаталог 616 (оџа Пргагу — сборка библиотеки) в текущем ка- 
талоге.! Затем команда ре] исполнила сценарий Маѓеѓіе.РІ,, содер- 


1 Если бы в состав дистрибутива входили файлы на языке ХЅ или в результа- 
те более сложных действий по сборке создавались другие файлы, они так- 
же оказались бы в данном каталоге. 
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жащий программу испытаний — программу, в процессе работы кото- 
рой исполняются тесты и в конце испытаний генерируются отчеты.! 


В ходе выполнения программы испытаний в естественном порядке за- 
пускаются все файлы в подкаталоге +, которые имеют расширение і. 
В данном случае у нас имеется всего один такой файл, созданный про- 
граммой й2хз, содержимое которого выглядит так: 


саї 1/1.1 

Прежде чем выполнить команду ‘таке іпѕіа11', необходимо запустить сценарий 
командой ‘таке Тез’. После ‘таке іпѕіа11` его можно запустить 

командой ‘рег1 1.1° 


НННННЫНЫННННЫНЫНЫННЫНЫНЫЕ 


замените ‘тезф$ => 1’ на '1езф$ => 1аѕї 1өеѕї їо ргіпі`'; 


иѕе Теѕї: :Моге Теѕїѕ => 1; 
ВЕСТМ { иѕе оКк(`Іѕ1апа: : Р10їііпо::Марѕ') }; 


НННННННННННННННННННННННЕН 


Вставьте ниже этого комментария свой программный код теста, 
здесь подключается модуль Теѕї: : Моге, за дополнительной 
информацией о порядке создания тестов обращайтесь к страницам 
справочного руководства этого модуля ( рег1аос Теѕї: : Моге ). 


Этот сценарий представляет собой простейшую тестовую программу. 
Тестирование выполняется с помощью модуля Теѕї: :Моге, который бу- 
дет описан в главе 17. Список импорта этого модуля интерпретируется 
особым образом. В данном случае объявлено, что этот файл содержит 
всего один «тест». 


Сам тест определяется следующей строкой и представляет собой по- 
пытку подключить испытуемый модуль. Если эта операция заверша- 
ется успехом, по окончании теста вы получите сообщение «ОК». Дан- 
ный тест мог бы закончиться неудачей, если бы модуль содержал син- 
таксическую ошибку или в конце модуля отсутствовало выражение, 
возвращающее значение «истина». 


В нашем случае тест завершился благополучно, о чем свидетельствуют 
текст сообщения и сведения о времени, затраченном на исполнение 
теста. 


Тривиальная команда такКе іпѕќаії 


Теперь, когда точно известно, что модуль компилируется, можно по- 
пробовать его установить. Разумеется, модуль будет устанавливаться 


1 Команда ре], которая исполнила сценарий Майе] е.РГ,, очень широко за- 
действуется во всех решениях, связанных с настройками. Если на машине 
установлено несколько версий Рег|, убедитесь, что сценарий Майе е.РГ, 
запускается в правильной версии. В таких случаях всегда указываются 
полные пути, что исключает вероятность вызвать не ту команду. 
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в каталог, имя которого было определено параметром РВЕРІХ на преды- 
дущем шаге. Этого вполне достаточно, чтобы показать, как будет про- 
текать процесс установки у пользователя.! Установка запускается ко- 
мандой паке іпѕїа11: 


$ таке іпѕ+а11 

Мап1Ру1пд 6116/тап3/1$1апа: :Р1о1пд: :Марз. 3 

Іпѕ+а11іпо /һоте/діпдег/Теѕііпо/1ір/ѕіте_рег1/5. 8. 7/151апа/Р1оїтіпо/Марѕ. рт 
Іпѕта11іпо /һоте/оіпдег/Теѕїіпо/тап/тапз/151апа: : Р1о1п9д: : Марз. 3 

Мгітіпо /һоте/оіподег/Теѕііпо/11р/ѕіте_рег1/5. 8. 7/дагміп/аиіо/1$1апа/ 
Р1оі+іпо/Марѕ/. 

раск11ѕї 

Аррепдіпо іпѕта11аїтіоп іпғо їо /һоте/діпдег/Теѕїіпо/11р/ѕіїе_рег1/5.8.7/ 
дагміп/ 

рег11оса1.роа 


Обратите внимание, что модуль устанавливается в каталог $ФРВЕРТХ/ 
110/51іїе_рег1 (предполагается, что ранее в параметре РАЕҒІХ был опре- 
делен путь к каталогу /ћоте/ сіпсег/ Теѕііпє), а страница справочного 
руководства - в каталог $РВЕҒІХ/пап (в ОС ОМІХ, например, в раздел 8, 
где находятся все описания подпрограмм). Страницы справочного ру- 
ководства создаются автоматически, когда извлекаются данные в фор- 
мате РОР и преобразуются в формат їгоѓ# -пап, который понимает ко- 
манда тап ОС ОМІХ.2 


Тривиальная команда таке дії 


Получив некоторый опыт тестирования, вы можете решить, что пора 
передать свой модуль друзьям и коллегам. Для этого надо создать 
один-единственный файл дистрибутива. Способы есть разные, но в со- 
временных версиях ОМІХ более широко распространено создание сжа- 
того файла архива в формате СМО &2ф, имеющего расширение .ѓаг.62 
или .152. 


Для получения файла достаточно выполнить команду паке 0151: 


$ паке 9151 
гп -гР Іѕ1апа-Р1оїіпо-Марѕ-0.01 
/изг/10са1/61п/рег1 "-МЕхї0Ъі15: : Мапі?еѕі=тапісору, тапігеаа" \ 

-е "тапісору(тапігеаа( ), `Іѕ1апа-Р1ої+іпо-Марѕ-0.01', ‘Безе’);” 
шка1г Іѕ1апа-Р1оті1по-Марѕ-0.01 
ткаіг Іѕ1апа-Р1о+тіпо-Марѕ-0.01/+ 
таг су? Т$1апа-Р101{1п9-Марз-0.01.Таг І51апа-Р1оїїіпо-Марѕ-0.01 


1 Если вы повторяете описываемые действия у себя, убедитесь, что пробный 
модуль устанавливается во временный каталог. Удалить установленные мо- 
дули, как правило, довольно сложно, но закончив эксперименты, вы сможе- 
те без затей удалить тестовый каталог со всем его содержимым. 

2 В системах, отличных от ОМІХ, и даже в некоторых версиях ОМІХ это мо- 
жет делаться по-разному, но конечный результат будет тем же самым. 
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$1апа-Р1о0111п9-Мар$-0. 01/ 
ѕ1апа-Р1оітіпо-Марѕ-0.01/Сһапдеѕ 
ѕТапа-Р1ої+1іпо-Марѕ-0.01/Маке#і1е. РІ 
ѕТапа-Р1ої+1іпо-Марѕ-0. 01 /МАМІРЕЅТ 
ѕ1апа-Р1ої+1іпо-Марѕ-0.01/Марѕ. рт 
ѕ1апа-Р1оїііпо-Марѕ-0. 01/ВЕАРМЕ 
ѕ1апа-Р1ої+1іпо-Марѕ-0.01/+/ 
ѕ1апа-Р1ої+іпо-Марѕ-0.01/+/1.+ 

гт - гЁ Іѕ1апа-Р1оїіпо-Марѕ-0.01 

0271р --реѕї Іѕ1апа-Р1оїїіпо-Марѕ-0.01. таг 


Теперь у нас имеется файл с именем Гѕіапа-РіІоїііпе-Марзѕ-0.01 лаг.2. 
Номер версии, присутствующий в имени файла, был извлечен из пере- 
менной $\/ЕАЗТОМ.1 


Дополнительные каталоги с библиотеками 


Каталог установки библиотек определяется относительно каталога, 
указанного в параметре РВЕРІХ. Если Джинджер в РАЕҒІХ укажет ката- 
лог /йоте/тзет/Тезип5, вам придется добавить соответствующий ка- 
талог с библиотеками в список каталогов поиска. Директива изе 110: 


иѕе 116 '/һоте/діпдег/Теѕііпо/11р/ѕіїе рег1' 


сделает все необходимое, чтобы позволить отыскать в этом каталоге 
подкаталог с требуемой версией и с учетом архитектурных особенно- 
стей операционной системы, если в этом есть необходимость (как пра- 
вило, это относится к платформозависимым файлам, таким как ском- 
пилированные модули). 


Кроме того, дополнительные каталоги можно подключить с помощью 
параметра командной строки -М: 


рег1 -М 11р=/һоте/діпдег/Теѕііпо/11р/ѕіїе рег1 мургодду 
или с помощью параметра -Т: 
регі -І /һоте/одіподег/Теѕііпо/11р/ѕіїе регі тургодду 


или настроив соответствующим образом переменную окружения 
РЕВЕ5ЕТВ (ниже приводится ѕһ-подобный синтаксис): 


РЕЋІ511В=/һоте/діпдег/Теѕїіпо/110/51їө регі; ехрогї РЕВІ5І1В 
. /турго9ду 


Недостатком этих методов (за исключением метода на основе изе 11р) 
является необходимость ввода с клавиатуры дополнительных парамет- 
ров. Если некто или нечто (например, сотрудник компании или веб- 
сервер) пожелает запустить вашу программу, он вряд ли будет знать, 


1 Если в состав дистрибутива включается несколько модулей, в файле МаЕе- 
е.РГ, необходимо определить главный модуль. 
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что необходимо определить дополнительную переменную среды окру- 
жения или задать дополнительные параметры командной строки, и ва- 
ша программа будет завершаться по ошибке, потому что не сможет 
отыскать требуемый модуль. 


Старайтесь по возможности применять метод изе 110. Остальные мето- 
ды пригодны разве что для пробных запусков новых версий модулей 
перед заменой старых (и, возможно, для того, чтобы привести в нера- 
бочее состояние программы, которые их используют). 


Упражнения 


Ответы на эти вопросы вы найдете в приложениия А в разделе «Ответы 
к главе 16». 


Упражнение [30 мин] 


Создайте дистрибутивы классов Апіта1 и Ногѕе из главы 12. Добавьте 
к ним соответствующие описания подпрограмм в формате РОР. Про- 
тестируйте модуль, установите его локально и соберите файл дистри- 
бутива. Если найдете еще немного свободного времени, распакуйте мо- 
дуль в другой каталог, определите новое значение параметра РВЕРТХ 
и установите модуль еще раз, чтобы убедиться, что в файле дистрибути- 
ва имеется все необходимое. 
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В главе 16 отмечалось, что дистрибутивы содержат функциональные 
возможности тестирования, доступ к которым открывает команда таке 
їеѕї. Конечный пользователь получает возможность писать и запус- 
кать тесты в процессе разработки и сопровождения модуля, а также 
проверять работоспособность модуля в реальном окружении. 


В данной книге вопросы тестирования модулей рассмотрены довольно 
коротко, а тех, кому эта тема интересна, отсылаем к книге Яна Лэнг- 
ворта (Тап гапоуогіћ) «Рег Теѕііпе: А Оеуе]орег’з Мофебоок» , О’ВеШу, 
2005. 


Чем больше тестов, тем лучше 
программный код 


Зачем тестировать модуль на этапе разработки? Дело в том, что тесты 
позволяют выявлять допущенные огрехи на самых ранних стадиях 
и стимулируют разработку программ небольшими порциями (так их 
легче проверять), что вообще считается хорошей практикой. На пер- 
вый взгляд, конечно, может показаться, что тестирование — это лиш- 
няя трата времени. Однако эта методика позволяет ускорить разработ- 
ку, т. к. меньше времени уходит на отладку. Большинство затрудне- 
ний устраняются еще до того, как они станут настоящими проблема- 
ми, ведь тесты выявляют именно те неисправности, которые нужно 
ликвидировать. 


Кроме того, тесты психологически облегчают изменение программно- 
го кода, потому что показывают ошибку сразу. Мы можем уверенно 
отвечать руководству или коллегам на вопросы о своем программном 
коде, т. к. тесты позволяют увидеть, насколько он работоспособен. 
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Разные люди по-разному понимают тестирование. Приверженцы на- 
правления, известного как «разработка, управляемая тестами» (Тез{- 
Онуеп Оеуеоршеп%), утверждают, что тесты следует писать раньше, 
чем программный код, который должен тестироваться. При первом же 
запуске тест терпит неудачу. Какой толк от теста, если он не выявляет 
ошибку, хотя и должен? Если тест терпит неудачу, то мы пишем про- 
граммный код, который обеспечит прохождение теста. Пройдя этот 
тест, можно создать тест для другой функции и повторить весь процесс 
с начала. Так и проверяется функциональность программы. 


Однако на самом деле тестирование никогда не будет исчерпывающим. 
Наборы тестов никогда не следует уничтожать, даже после поставки 
модуля заказчику. Если только вы не пишете мифический модуль, «аб- 
солютно свободный от ошибок», пользователи будут время от времени 
присылать сообщения об ошибках. На основе каждого из них можно 
создать новый набор тестов.! Пока вы будете устранять ошибку, осталь- 
ные тесты не дадут программному коду регрессировать до менее функ- 
циональной версии, отсюда и название – регрессивное тестирование. 


Устранив ошибки, можно подумать о выпуске новой версии. Если мы 
хотим расптирить функциональные возможности, то сначала создаем 
новые тесты.? Поскольку существующие тесты гарантируют восходя- 
щую совместимость, можно быть уверенным, что новая версия обладает 
теми же функциональными возможностями, что и предыдущая, и даже 
немного большими. 


Простейший сценарий с тестами 


Прежде чем двинуться дальше, напишем несколько строк на языке 
Рег1. Мы только что говорили о том, что тесты должны создаваться 
раньше, чем сам программный код, поэтому постараемся следовать 
своим же рекомендациям. К более подробному обсуждению мы вер- 
немся чуть позже, а пока рассмотрим модуль Теѕї: :Моге,3 который вхо- 
дит в стандартный дистрибутив Ре!|. 


Чтобы приступить к тестированию, необходимо написать простой сце- 
нарий на языке Рег1. Все тесты будут находиться в этом сценарии, по- 
этому мы сможем использовать все имеющиеся у нас знания о языке 
Рег. Подключим модуль Тө5ї: :Моге и сообщим ему, сколько тестов мы 
собираемся запускать. Ниже добавим обращения к функциям из моду- 


1 Те, кому мы посылаем отчет об ошибке, обнаруженной в их программном 
коде, по достоинству оценят наши усилия, если мы пошлем заодно и тест, 
выявляющий эту ошибку. Оценка наших усилий будет еще выше, если мы 
предложим и способы устранения ошибки. 

2 И одновременно вносятся дополнения в документацию. 


з Существует еще один модуль – Т05ї: :51тр]е, однако большинство разработ- 
чиков предпочитают его преемника, модуль Те5ї: :Моге. 
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ля Гез{: :Моге, подробнее о которых мы поговорим позже. А пока лишь 
заметим, что большинство из них сравнивают первый аргумент (полу- 
ченный результат) со вторым (ожидаемым результатом). 


#1 /изг/61п/рег1 

иѕе Теѕї: :Моге Теѕїѕ => 4; 

ок( 1, "1 - истина’); 

1$( 2 + 2, 4, 'Сумма равна 4’); 

15( 2 * 3, 5, 'Произведение равно 5’); 

15пі( 2 ** 3, 6, "Результат не равен 6" ); 

1іке( `А1раса Воок', дг/а1раса/і, ‘Обнаружено упоминание об а1раса! ` ); 


В процессе работы сценарий будет выполнять тесты и выводить ре- 
зультаты. Если полученное и ожидаемое значения совпадают, функ- 
ции Тез: :Моге выводят строку, начинающуюся с ок. Если эти значения 
не совпадают, строки начинаются с пої ок. Кроме этого выводится до- 
полнительная диагностическая информация о том, что ожидал полу- 
чить тот или иной тест и что он фактически получил. 


1..4 

ок 1 - 1 - истина 

ок 2 - Сумма равна 4 

пот ок З - Произведение равно 5 

# Га11е0 тезф ‘Произведение равно 5' 
# іп /Оѕегѕ/огіап/Веѕкіор/+еѕї аі 1іпе 9. 

# 901: ‘6’ 

# ехресїеа: ‘5’ 

# Гоок$ 11ке уои р1аппеа 4 Тезфз Биф гап 1 ехїга. 
# Гоок$ 11ке уои Ғаі1еа 1 їеѕї о? 5 гип 

ок 4 - Результат не равен 6 

ок 5 - Обнаружено упоминание об а1раса! 


Далее мы покажем, как из таких результатов с помощью Рег] полу- 
чить удобочитаемый отчет. Функциональность модуля Теѕі: :Нагпеѕѕ 
поможет избежать необходимости просматривать весь вывод, полу- 
ченный при тестировании, в поисках самых важных участков. 
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Хорошие тесты, кроме того, содержат небольшие примеры, иллюстри- 
рующие документацию. Это еще один способ выразить те же самые 
мысли, и кому-то нравится одно, кому-то – другое.! Хорошие тесты 
придают пользователю уверенности, что программный код модуля 


1 Некоторые из модулей, применяемые нами в своей работе, гораздо проще 
изучать по тестовым примерам, чем по имеющейся документации в форма- 
те РОР. Конечно же, любой действительно хороший пример должен повто- 
ряться в тексте документации. 
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(и всех его зависимостей) обладает достаточной степенью переносимо- 
сти, чтобы корректно работать в его системе. 


Тестирование -— это целое искусство. Люди написали массу книг о том, 
как тестировать (и затем, похоже, забыли о них). В первую очередь 
важно помнить ошибки, допущенные (нами или другими) в процессе 
разработки, а затем убедиться с помощью тестов, что они не повтори- 
лись вновь в этом проекте. 


Создавая тесты, старайтесь встать на точку зрения пользователя моду- 
ля, а не разработчика. Вы знаете, как должен использоваться модуль, 
потому что это вы придумали его, и это у вас появилась необходимость 
в нем. Другие наверняка попытаются работать с модулем не совсем 
так, как это делаете вы. Наверное, вы и сами понимаете, что пользова- 
тели, получив такой шанс, постараются найти вашему программному 
код самые разнообразные применения. Вот каким должен быть ход ва- 
ших мыслей при тестировании модуля. 


Во время тестирования надо как выявлять ошибки, так и подтверждать 
работоспособность. Проверяйте работоспособность при граничных зна- 
чениях, проверяйте при обычных значениях. Проверяйте работоспособ- 
ность рядом с граничными значениями - чуть ниже и чуть выше. Про- 
веряйте функции по одной. Проверяйте функции группами. Если где-то 
должно быть возбуждено исключение, убедитесь, что в этот момент не 
возникает отрицательных побочных эффектов. Попробуйте передавать 
больше входных аргументов, чем надо. Попробуйте передавать меньше 
входных аргументов, чем надо. Попробуйте преднамеренно допустить 
ошибку в написании именованных параметров. Попробуйте передать 
слишком много или слишком мало данных. Проверьте, что происходит, 
когда в аргументе передается неожиданное значение, например ипдет. 


Поскольку мы не можем сейчас видеть ваш модуль, попробуем протес- 
тировать функцию $0гї языка Рег|, которая вычисляет квадратный 
корень числа. Для начала убедимся, что функция вычисляет правиль- 
ные значения в очевидных случаях – для значений 0, 1, 49 и 100. Затем 
проверим менее очевидный случай – выражение 50г1(0.25) должно 
возвращать значение 0.5. И наконец, убедимся, что произведение 
квадратных корней числа 7 дает число, близкое к значению первона- 
чального параметра, скажем где-то между 6,99999 и 7,00001.1 


Теперь попробуем выразить все, что было сказано, в виде программно- 
го кода. Здесь мы задействуем те же функции, что и в предыдущем 
примере. Ниже приводится исходный текст сценария, проверяющий 
работоспособность. 


#1 /иѕг/оіп/рег1 


1 Не забывайте, что числа с плавающей точкой не всегда имеют абсолютную 
точность, – как правило, имеется некоторая погрешность. В подобных си- 
туациях можно воспользоваться модулем Теѕї: : Митбег: : 0е1їа. 
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иѕе Тезт: .Моге Теѕїѕ => 6; 


1$( загЕ( 0), 0, ‘Корень квадратный из 0 = 0` ); 
1$( загЕ( 1), 1, ‘’ Корень квадратный из 1 = )“ 

1$( загЕ( 49), 7, `' Корень квадратный из 49 = 7’); 

1$( 50г1(100), 10, ‘° Корень квадратный из 1 = 10°); 
1$( $0г1(0. 25), 0.5, ‘ Корень квадратный из 0.25 = 0.5' ); 


пу Фргодисе = $49гЕ(7) * загЕ(7): 


ок( Фргодисі > 6.999 && Фргодисе < 7. 001, 
"Произведение [$ргойисї ] приблизительно равно 7” ); 


Мы должны убедиться, что вызов 59г1(-1) дает фатальную ошибку, как 
и вызов $0г1(-100). Что произойдет в случае вызова 509г1(&1еѕї_ ѕ0ир()), 
когда &105ї_ѕир возвращает строку "10000"? Что получится в результате 
вызова 50г1(0пӣе?)? А как насчет 59гї() или $9г1(1, 1)? Можно ли пере- 
дать функции очень большое число, например гугол: $9г{(10**100)? 
Поскольку в документации оговаривается, что функция 30г{ работает 
по умолчанию с переменной $_, мы должны убедиться, что так оно 
и есть. Даже для такой простой функции, как з4г*, необходимо соста- 
вить пару десятков тестов. Если программный код решает более слож- 
ные задачи, чем заг{, для него придется написать гораздо больше тес- 
тов. Тестов никогда не бывает слишком много. 


В следующем простом сценарии мы реализовали проверку дополни- 
тельных условий.! 


#1 /иѕг/оіп/рег1 
иѕе Тезт: :Моге Төѕїѕ => 9; 
зиб +өѕі ѕир { '10000` } 


15( $@, ``, ‘изначально $@ ничего не содержит’ ); 

{ 

Фп = -1; 

@\а1 { загЕ($п) }; 

ок( $@, ‘после 59г1(-1) в $@ появилось сообщение’ ); 


@\а1 { загЕ(1) }; 
19( $@, ``, ‘после заге(1) в $@ ничего нет’); 


ту Фп = -100; 
ема1 { ѕдгї($п) }; 
ок( $@, ‘после 59г1(-100) в $@ появилось сообщение °); 


} 


1 Написав его, мы обнаружили, что не можем написать $49г{(-1), поскольку 
функция еүа1 не перехватывает возникающую ошибку. Вероятно, Ре! пе- 
рехватывает ее на этапе компиляции. 
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15( ѕ9г1( +еѕі ѕир( ) ), 100, 'Строковые значения допустимы в загЕ( )’); 


ема1 { загЕ(ипаеР) }; 
15( $@, ``, ‘после ѕагі(ипае?) в $@ ничего нет’); 


15( загі, 0, ‘по умолчанию загЕ() работает с $_ (ипде?іпеа) `); 


2224100; 
15( загі, 10, ‘по умолчанию $0г1() работает с $_°); 


15( ѕ9г1( 10**100 ), 10**50, ‘загЕ() справилась с числом гугол’ ); 


Если вы пишете не только тесты, но и сам программный код, старай- 
тесь думать о том, как можно будет проверить каждую его строку, что- 
бы весь программный код был охвачен тестами хотя бы один раз. 
(Можно ли протестировать ветку е15е? Можно ли протестировать вет- 
ку е1зе1{?). Если вы пишете только тесты или не уверены в том, что 
тестами охвачен весь программный код, воспользуйтесь возможно- 
стью оценки степени охвата.! 


Поищите другие наборы тестов. В СРАМ вы сможете найти буквально 
десятки тысяч файлов с тестами, причем некоторые из них содержат 
сотни тестов. В дистрибутиве Рег] также имеется несколько тысяч тес- 
тов, с помощью которых выполняется проверка корректности компи- 
ляции программного кода на разных архитектурах. Для примеров это- 
го более чем достаточно. Михаэль Шверн (Місһае!І Ѕесһуегп) заработал 
звание «Рег1 Тезф Мазфег» за то, что ему удалось полностью протести- 
ровать ядро Ре! и за то, что в сообществе постоянно слышны его при- 
зывы «тест! тест! тест!». 


Тестирующая система 


Обычно мы (и как разработчики, и как пользователи) запускаем тесты 
с помощью команды паке їеѕі. В Макеѓі1е тесты запускаются под управ- 
лением модуля Теѕі: :Нагпеѕѕ, который перехватывает вывод от тестов 
и создает отчет с результатами тестирования. 


Тесты располагаются в подкаталоге ї каталога с дистрибутивом, а каж- 
дый файл с тестами имеет расширение .ї. Каждый файл с тестами за- 
пускается отдельно, таким образом, в случае аварийного завершения 
работу прекращает только текущий тестовый сценарий, а собственно 
тестирование продолжается. 


1 Подобные инструменты, такие как модуль 0е\уе1: :Соуегаде, вы найдете 
в СРАМ. 

2 Для того чтобы прервать тестирование, достаточно «катапультироваться», 
выведя на стандартное устройство фразу «раі оп%». Это удобно, если обнару- 
жена ошибка, способная породить целый каскад других ошибок, и при этом 
мы не хотим ждать, пока это произойдет. 


Тестирующая система 243 


Взаимодействие между тестовым сценарием и тестирующей системой 
обеспечивается при помощи вывода простых сообщений на стандарт- 
ное устройство.! Три самых основных сообщения: о количестве тестов, 
об успешном прохождении тестов и о неудаче. 


Каждый отдельный тестовый файл включает в себя один или более тес- 
тов. Тесты нумеруются в порядке возрастания, начиная с 1. В первую 
очередь тестовый сценарий должен сообщить тестирующей системе 
(через устройство 5Т0007) ожидаемое количество тестов, которое на язы- 
ке Ре! выглядит как описание диапазона: 1. .\№. Так, если в файле со- 
держится 17 тестов, то первой на 5Т000Т должна быть выведена строка: 


П.М 


с последующим символом перевода строки. Последнее число нужно 
тестирующей системе, чтобы проверить, не завершился ли раньше 
времени тестовый сценарий. Если тестовый сценарий лишь выполняет 
некоторые необязательные действия и не содержит никаких тестов, то 
достаточно указать строку 1..0. 


Мы сами не должны беспокоиться о выводе данной строки, поскольку 
это делается средствами модуля Тез*: :Моге. Когда этот модуль подгру- 
жается, ему сообщается, сколько тестов будет запущено, а он выводит 
правильно сформированную строку диапазона. Так, чтобы вывести 
строку 0.. 17, надо передать модулю Теѕї: :Моге число 17: 


иѕе Теѕї: :Моге їеѕїѕ => 17; 


После строки диапазона номеров тестов выводятся строки с результа- 
тами, по одной на тест. Каждая строка должна начинаться со слова ок, 
если тест был успешно пройден, и с пої ок в случае неудачи. Если бы 
нам приходилось писать все это вручную, тогда тест, проверяющий 
значение суммы чисел 1, 2 иЗ, мог бы выглядеть так: 


ргіпЕ +(1+2==37? '', ‘по '), "ок 1\п”; 


В случае неудачи мы могли бы выводить просто слово пої, а слово ок 
выводить отдельно. Но на некоторых платформах это может вызвать 
определенные проблемы, что обусловлено иным способом обслужива- 
ния стандартного устройства вывода. Чтобы улучшить переносимость 
тестов, выводите всю строку сразу ок № или пої ок №. Не забывайте 
о пробеле после слова пої! 


ри1пЕ ‘пої ° ип1е$$ 2 * 4 == 8; 
ргіпЕ "ок 2\п”; 


Однако во всем этом для нас нет никакой необходимости, и мы сами не 
должны вести счет выполненных тестов. Только представьте — вдруг 


1 Если вам это интересно, то точные сведения по этой теме можно найти в до- 
кументации рег1йос Төѕї: :Нагпезз: :Тар. Впрочем, вы найдете их там, даже 
если вам это неинтересно. 
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рано или поздно придется добавить тест где-нибудь в середине файла. 
Тогда нам придется вручную указать номер теста, а затем изменить но- 
мера всех последующих. Но и это еще не все. В примере, показанном 
выше, мы не выводим никакой полезной для нас информации в случае 
неудачи, таким образом, нам сложно будет разобраться с тем, что по- 
шло не так. Разумеется, мы могли бы сделать все, что потребуется, но 
это очень большой объем работы! К счастью, мы можем обратиться 
к услугам очень удобных функций модуля Теѕї: :Моге. 


Разработка тестов с помощью Теѕї::Моге 


Модуль Теѕі: :Моге поставляется со стандартным дистрибутивом Рег] на- 
чиная с версии 5.8, аесли нужен модуль для более ранней версии, то его 
можно взять в СРАМ. Модуль работает со всеми версиями Рег| начиная 
с версии 5.6. В следующем примере мы перепишем все тесты из преды- 
дущего раздела, включив в них функцию ок() из модуля Теѕї: :Моге. 


иѕе Теѕїі::Моге тезф$ => 4; 


0к(1+ 2 == 3, '1+2 == 3'); 

0Кк(2 * 4 == 8, '2 + 4 == 8'); 

пу $адіуіде = 5 / 3З 

ок(а0ѕ($%0іуіае - 1.666667) < 0.001, `5 / 3 == (примерно) 1.666667); 
ту $ѕирЕгасі = -3 + 3; 

ок( ($зибфгасЕ ед '0’ ог $зибфгасЕ ед '`-0`), '-3 + 3 = = 0); 


Функция ок() выводит «ок», если первый аргумент имеет значение 
«истина» и «пої ок» в противном случае. Необязательный второй аргу- 
мент играет роль названия теста. Вслед за этой информацией функция 
ок() выводит символ дефиса и название теста. Таким образом, в случае 
неудачи тест можно будет отыскать по его названию. 


104. 

0Кк1- 1+2 == 

0Кк2- 2 * 4 == 8 

0К3- 5 / 3 == (арргох) 1.666667 
ОК 4 - -3 +3 == 


Теперь всю черную работу делает за нас модуль Теѕі: :Моге. Нам уже не 
надо думать о выводе информации или о нумерации тестов. Что можно 
сказать по поводу константы 4 в первой строке сценария? Использова- 
ние подобного рода констант, наверное, оправданно, когда разработка 
модуля закончена и из него создается дистрибутив. Но как быть, если 
набор тестов постоянно расширяется? Если оставить константу в том 
виде, в каком она есть, тестирующая система будет постоянно сооб- 
щать о несоответствии ожидаемого и фактического количества тестов. 
В этом случае можно заменить числовую константу на по_р1ап. 


иѕе Теѕї: : Моге “по_р]ап”; # на время разработки 


ОКС + 2 == 9, =); 
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0к(2: +..4 == 8, 2+4 ==”): 

пу $01\149е = 5 / 3; 

ок(а0ѕ($%0іуіае - 1.666667) < 0.001, `5 / 3 == (примерно) 1.666667`); 
ту $ѕирЕгасі = -3 + 3; 

ок( ($зибфгасЕ ед '0’ ог $зибфгасЕ ед '-0°`), '-З3+3==0`): 


Теперь порядок отображения результатов работы несколько изменит- 
ся – строка диапазона номеров тестов переместится в конец и будет 
отображать фактический диапазон номеров выполненных тестов, что 
может отличаться от количества, которое планировалось изначально: 


0к1- 1+2 == 

02-2 * 4 == 8 

0К3- 5 / 3 == (примерно) 1. 666667 
ОК 4 - -3 +3 == 

1..4 


Тестирующая система знает: если информация о количестве тестов в на- 
чале отсутствует, следовательно, она была перемещена в конец. Если 
указанное количество тестов не соответствует фактическому или в кон- 
це испытаний не было никакой информации о количестве тестов, это 
расценивается как ошибка выполнения серии тестов. В процессе раз- 
работки мы можем использовать описанный подход, но перед выпус- 
ком версии мы обязательно должны указать точное число тестов. 


Но это еще не все! Модуль Тез{: :Моге позволяет гораздо больше, чем 
просто определить значение «истина» / «ложь». Функция 1$(), которая 
была показана ранее, сравнивает первый аргумент (фактический ре- 
зультат операции) со вторым (ожидаемый результат). Необязатель- 
ный третий аргумент - это, как и прежде, название теста. 


иѕе Тезт::Моге ‘по_р1ап’; 


(Т 222118, роге 
8) 


15(2 * 4, 8, 2 »+ 4 = 


, 


Обратите внимание: здесь нам удалось избавиться от операции сравне- 
ния чисел, и вместо проверки значения первого аргумента мы просто 
спрашиваем, равен ли фактический результат ожидаемому. В случае 
успешного прохождения теста данная функция не имеет никаких пре- 
имуществ перед функцией ок(), зато в случае неудачи она дает намно- 
го более интересные результаты. 


иѕе Теѕї: : Моге ‘по_р1ап’; 


15 +23 =) 
15(2 + 4, 6, '2*4=6’); 


Такой сценарий выводит гораздо больше полезной информации, в ко- 
торой явно говорится, что ожидала получить функция 15() и что она 
получила фактически. 


0к1- 1+2 = 3 
по оКк2- 2 + 4 = 6 
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# Ра11е9 їеѕі (1.1 аї 11те 4) 

# 901: '8' 

# ехрестеа: ‘6’ 

е2 

# Гоок$ 11ке уои Ғаі1еа 1 +еѕіѕ оғ 2. 


Разумеется, ошибка находится в самом тесте, но примечательно, что 
функция прямо сообщила о том, что было получено число 8, тогда как 
ожидалось число 6.! Это намного удобнее, чем просто знать, что «что- 
то пошло не так». Кроме того, существует парная функция іѕпі(), ко- 
торая выполняет проверку на неравенство. 


Теперь вернемся к третьему тесту, в котором допускается изменение 
фактического значения в некоторых пределах. Вместо этой функции 
мы можем использовать только подпрограмму спр ок().? Первый и тре- 
тий аргументы функции – это операнды, а второй — оператор сравне- 
ния (в виде строки!). 


иѕе Теѕї: : Моге ‘по _р1ап'; 


ту Ф0іуіде = 5 / 3; 
стр ок(аюрѕ($аіуіде - 1.666667), ‘<’, 0.001, 
"5 / З должно быть (примерно) 1.666667’); 


Если в результате выполнения оператора, указанного во втором аргу- 
менте, получается значение «ложь», мы получим подробное сообще- 
ние об ошибке, в котором будут присутствовать оба значения и сам 
оператор сравнения. 


И о последнем тесте. Хотелось бы точно видеть, что получается: 0 или 
-0 (в некоторых системах может возвращаться значение -0). Для этого 
можно воспользоваться функцией 1іке(): 


иѕе Теѕї: : Моге ‘по_р1ап’; 


ту Фзирігасї = -3 + 3; 
1іке($ѕирігасі, аг/^-?0$/, '-3 + 3 == 0); 


Функция 1іке() получает первый аргумент в виде строки и пытается 
сопоставить его со вторым аргументом. В качестве второго аргумента 
обычно выступают объекты регулярных выражений (в данном случае 
создается с помощью дг), но вполне допустимо использовать обычную 
строку, которая будет преобразована в объект регулярного выражения 


1 Точнее было получено '8', а ожидалось '6'. Вы обратили внимание, что 
значения являются строками? Функция 15() сравнивает свои аргументы 
как строки. Если такой способ сравнения не подходит по каким-либо при- 
чинам, то можно построить тест на базе функции ок() или стр_ок(), о кото- 
рой мы вскоре побеседуем. 

2 Такого рода проверки могут быть выполнены с помощью модуля Т05ї: : №ит- 
рег: :ре1+а. 


з Кприскорбию поклонников обратной польской нотации. 
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самой функцией 11Ке(), для этого достаточно, чтобы строка выглядела 
как регулярное выражение: 


1іке($ѕирігасі, '/^-?0$/`, '-З+3==0`); 


Представление второго аргумента в виде строки обеспечивает совмес- 
тимость со старыми версиями Рег1.! Если соответствие подтвердится, 
тест будет считаться пройденным. Если нет, то вместе с сообщением об 
ошибке будут выведены оригинальная строка и регулярное выраже- 
ние. Если нужно, наоборот, убедиться в несоответствии аргументов, 
тогда следует использовать функцию ип11Ке(). 


Тестирование объектно-ориентированных 
особенностей 


В случае объектно-ориентированных модулей, нам необходимо убе- 
диться, что конструктор возвращает объект определенного класса. 
Для этих целей существуют функции іѕа_ок() и сап_ок(): 


иѕе Тезт::Моге ‘по_р1ап’; 
изе Ногзе; 


му $1г199ег = Ногѕе->патеа( 'Триггер’); 
іѕа ок(Фігіддег, ‘Ногзе’): 
іѕа ок(Фгіддег, '`Апіта1`); 
сап _ок($+гіддег, $_) Рог ам(еаї со1ог); 


Эти тесты получают названия по умолчанию, в результате данный сце- 
нарий выводит следующее: 


ок 1 - Тһе орјесі іѕа Ногѕе 
ок 2 - Тһе орјесї іѕа Апіта1 
ок 3 - Ногзе->сап(‘еат’) 

ок 4 - Ногзе->сап( 'со1ог’) 
1..4 


Здесь мы убедились, что имеем дело с лошадью, которая является раз- 
новидностью животного, а так же проверили, может ли лошадь есть 
и имеет ли она цвет.? Вслед за этим можно было бы проверить, могут 
ли лошади иметь уникальные клички: 


иѕе Тезт::Моге ‘по_р1ап’; 
изе Ногѕе; 


ту Фігіддег = Ногѕе->патеа( 'Триггер’); 
іѕа ок(Фігіддег, ‘Ногзе’); 

ту Фу һогѕе = Ногѕе->патеа( ‘мистер Эд’); 
іѕа ок(Фіу һогѕе, ‘Ногзе’); 


1 Форма 0г// появилась только в Рег1 5.005. 


2 Точнее была выполнена проверка наличия методов ваї и со1ог, но мы не 
проверили работоспособность самих методов. 
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# Не повлияло ли создание второй лошади на кличку первой? 
15($1гіддег->пате, ‘'Триггер’, ‘правильное имя = Триггер’); 
15($1у Ногзе->пате, ‘мистер Эд’, ‘правильное имя - мистер Эд’); 
15(Ногѕе->пате, ‘лошадь без имени’); 


Этот тест должен показать, что «лошадь без имени» и «Ногзе без 
имени» - это не одно и то же. 


ок 1 - Тһе орјесі іѕа Ногѕе 

ок 2 - Те орјесі іѕа Ногѕе 

ок З - правильное имя - Триггер 
ок 4 - правильное имя - мистер Эд 


ПОТ ок 5 

# Ғаїі1еа +еѕі (1.1 аі 1іпе 56) 
# дої: ‘Ногзе без имени’ 
# ехрестед: ‘лошадь без имени’ 
1:5 


# Гоок$ 11ке уои Ғаі1еа 1 їеѕї от 5. 


Так-так! Взгляните-ка! Мы написали в тесте «лошадь без имени», а по- 
лучили строку «Ногѕе без имени». То есть ошибка в самом тесте, а не 
в модуле, поэтому надо исправить тест и повторить его. Если, конечно, 
в описании модуля фактически не указано «лошадь без имени».! Не 
надо бояться писать тесты и тестировать модули. Если где-то будет до- 
пущена ошибка, она будет обнаружена в любом случае. 


Модуль Теѕї: : Моге позволяет даже проверить действие директивы изе: 


иѕе Теѕї: : Моге ‘по_рТап’ 
ВЕСбТМ{ иѕе ок('Ногѕе') } 


ту $Егіддег = Ногѕе->патеа( ` Триггер); 
іѕа ок(Фігіддег, 'Ногѕе’); 
# .. остальные тесты. 


Различие между тестом директивы изе и ее фактическим применением 
состоит в том, что в первом случае, когда тест терпит неудачу, работа 
тестового сценария прерываться не будет, хотя при этом остальные 
тесты также потерпят неудачу. Этот тест считается самым обычным 
тестом, поэтому, получив «ок», мы свободно можем положить его в ко- 
пилку наших успехов для включения в еженедельный отчет. 


Функция изе_ок() находится в блоке ВЕСТ№, поэтому все подпрограммы, 
экспортируемые модулем, будут вовремя объявлены и станут доступ- 
ными для остальной части программы, как и рекомендуется в доку- 
ментации. Для большинства объектно-ориентированных модулей это 
не имеет большого значения, поскольку они, как правило, не экспор- 
тируют подпрограммы. 


1 Получается, что тесты проверяют не только программный код, но и описа- 
ние программного кода. 
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Списки То-Юо тестов 


Если тесты пишутся раньше, чем программный код, то они изначаль- 
но обречены на неудачу. Можно даже добавлять тестирование новых 
функциональных возможностей, которое будет завершаться неудачей 
в период разработки. Существует ряд ситуаций, когда мы заранее зна- 
ем, что тест потерпит неудачу, и не обращаем на это внимание. Модуль 
Теѕі: :Моге предусматривает такую возможность и позволяет пометить 
тесты, как неготовые к использованию (ТОПО). 


В следующем примере мы собираемся добавить метод їа1к() в класс 
Ногѕе, но еще не сделали этого. Мы уже написали тест, так как он явля- 
ется частью спецификации модуля. Мы знаем, что тест будет терпеть 
неудачу, и это правильно, но пока мы сообщаем модулю Теѕї: :Моге, что 
неудачное завершение этого теста не будет расцениваться как ошибка. 


иѕе Тезт::Моге ‘по_р]1ап’; 


изе_ок(‘Ногзе’); 
ту $1\_Погзе = Ногзе->памед( ‘мистер Эд’); 


то0о: { 
оса1 $1000 = ‘лошадей еще не научили говорить’; 


сап_ок($+у_һогѕе, `їа1к'); # она умеет говорить! 
} 


15($1у һогѕе->пате, ‘мистер Эд’, ‘Я мистер Эд! `); 


Мы пометили программный блок меткой 1000, указав, что неудачное 
завершение теста — это ожидаемое явление. Внутри блока была созда- 
на локальная версия переменной $7000, которая будет хранить причи- 
ну отказа теста. Модуль Тез{: :Моге при выводе результатов отмечает 
этот тест как тест Т000, а тестирующая система, заметив это, не будет 
наказывать нас за ошибку.! 


ок 1 - изе Ногѕе; 

пої ок 2 - Ногѕе->сап('`+а1к’) # Т000 лошадей еще не научили говорить 
# Ра11еа (1000) тез (1.1 аї 1іпе 7) 

# Ногѕе->сап('`+а1к') Ғаі1еа 

ОК 3 - Я мистер Эд! 

18:3 


Пропуск тестов 


В некоторых случаях тесты приходится пропускать. Например, те или 
иные функциональные возможности тестируемого модуля могут быть 
доступны только при условии использования Рег! определенной вер- 


1 Для создания тестов 1000 необходимо иметь модуль Теѕї: : Нагпеѕѕ версии 2.0 
или выше, которая начала распространяться только в составе Рег! 5.8. Од- 
нако этот модуль может быть установлен из СРАМ. 
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сии, или в определенной операционной системе, или при наличии оп- 
ределенных модулей. Чтобы пропустить тест, мы должны сделать 
практически то же самое, что и в случае тестов 1000, но для Теѕї: : Моге 
эти два варианта сильно отличаются друг от друга. 


В следующем примере для создания пропускаемого теста мы снова ис- 
пользуем блок программного кода и отмечаем его меткой 5КІР. В про- 
цессе тестирования модуль Төѕї::Моге не будет исполнять этот тест, 
в отличие от блоков 7000, которые исполняются в любом случае. В на- 
чале блока вызывается функция ѕкір(), которая указывает причину, 
по которой производится данный пропуск тестов, и их количество. 


В следующем примере перед тестированием метода зау_11_а10и49() про- 
веряется доступность модуля Мас: .Зреесп. Если модуль недоступен, 
блок еуа1() вернет значение «ложь», и в результате будет вызвана 
функция ѕкір(). 


ЅКІР: { 
ѕкір ‘Модуль Мас: :Ѕ5реесһ недоступен’, 1 
ип1е$$ өуа1 { гедиіге 'Мас: :Ѕ5реесһ’ }; 


ок( $1у һогѕе->ѕау ії а1оџа( ‘Я мистер Эд’); 
} 


Когда Теѕї: :Моге пропускает тест, он выводит сообщение ок специаль- 
ного вида, чтобы сохранить порядок нумерации тестов и заодно сооб- 
щить испытательной программе о том, что произошло. Позднее испы- 
тательная программа сможет отразить в своем отчете количество про- 
пущенных тестов. 


Старайтесь не использовать тесты 5КТР, потому что они работают не со- 
всем правильно. Лучше используйте для этого блоки 1000. Тесты ЭКТР 
допускается использовать только в исключительных случаях, когда 
они приобретают характер необязательных. 


Более сложные тесты 
(несколько тестовых сценариев) 


Изначально программа #2х5! создавала единственный тестовый сцена- 
рий с именем {/1.12. Можно оставить все свои тесты в одном файле, но 
вообще есть смысл разбить все тесты на логически связанные группы 
и поместить каждую группу в отдельный файл. 


1 Если при создании дистрибутивов вы используете другие инструменталь- 
ные средства, описанные в главе 16, скорее всего, вы получите другие тес- 
товые сценарии, возможно более сложные. 


2 ВРегі 5.8. В более ранних версиях создается сценарий с именем {езт.р1, ко- 
торый также работает под управлением испытательной программы, запус- 
каемой с помощью утилиты таѓе, но вывод от этого сценария перехватыва- 
ется несколько иным способом. 
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Самый простой способ добавления дополнительных тестов заключает- 
ся в создании файла 1/2.1. Все очень просто. Нам даже не придется ни- 
чего менять ни в Майе е.РГ, ни в испытательной программе – файл 
будет найден и исполнен автоматически. 


Можно продолжать добавлять файлы вплоть до 9. 1 и не замечать ниче- 
го необычного, но после того как будет добавлен файл с именем 10.1, 
можно будет заметить, что он запускается сразу после 1.1, перед 2.1. 
Почему? Потому что тесты всегда запускаются в алфавитном порядке 
следования их имен. Это в общем-то неплохо, поскольку дает нам воз- 
можность в первую очередь выполнять основные тесты, а затем более 
экзотические всего лишь за счет изменения имен файлов. 


Многие разработчики переименовывают файлы, чтобы отразить в име- 
нах назначение тестов, например 01-соге. ї, 02-раѕіс.ї, 03-айуапсей. ї, 
04-ѕауіпо.ї ит. д. Первые две цифры в имени управляют порядком ис- 
полнения сценариев, а остальная часть говорит о назначении тестов. 


Как уже говорилось в главе 16, разные инструментальные средства соз- 
дания дистрибутивов делают это по-разному и создают один или более 
тестовых сценариев. По умолчанию Теѕї: :Нагпеѕѕ запускает их в том же 
порядке, как мы только что описали. 


Кстати, Брайан написал модуль Теѕї::Мапіғеѕї, который позволяет 
обойти такую схему именования файлов. При использовании этого мо- 
дуля можно создать файл ї/+еѕі папі?еѕї и в нем указать, какие тесто- 
вые сценарии должны исполняться и в каком порядке. Теперь файлам 
с тестами можно давать более осмысленные имена и не задумываться 
при этом о порядке их исполнения. Позднее, когда понадобится доба- 
вить новый файл с тестами, чтобы определить его местоположение 
в общей последовательности, достаточно будет отредактировать файл 
+/+ез{_тап1Тез+. 


Упражнения 


Ответы на эти вопросы вы найдете в приложении А в разделе «Ответы 
к главе 17». 


Упражнение [60 мин] 


Создайте дистрибутив модуля, написав предварительно набор тестов 
к нему. 


Главная цель – создать модуль Му: 1151: : 0111, который будет экспор- 
тировать две подпрограммы: зип() и ѕһиғ+1е(). Подпрограмма зит() 
должна принимать список аргументов и возвращать числовую сумму 
их значений. Подпрограмма ѕћиѓ?#1е() должна принимать список аргу- 
ментов, переупорядочивать его случайным образом (перетасовывать) 
и возвращать список с новым порядком следования элементов. 
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Начните разработку с подпрограммы зип(). Сначала напишите тесты, 
а потом приступайте к созданию программного кода. Когда все тесты 
будут проходить без ошибок, разработку можно считать законченной. 
Затем создайте тесты для подпрограммы ѕіи?#1е(), после чего присту- 
пайте к ее реализации. Можно заглянуть в рег1Тад и подсмотреть реа- 
лизацию подпрограммы там. 


По мере продвижения вперед обязательно вносите соответствующие 
изменения в документацию и в файл МАМТЕЕБТ. 


Будет еще лучше, если над этим упражнением вы будете работать с кем- 
нибудь в паре. Один из вас мог бы написать тесты к подпрограмме 
ѕит() и реализацию подпрограммы ѕћиѓ#1е(), а другой наоборот — тесты 
к подпрограмме ѕһи??1е() и реализацию подпрограммы ѕип(). Обме- 
няйтесь файлами {/* и посмотрите, обнаружат ли тесты какие-нибудь 
ошибки! 
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Дополнительные 
сведения о тестировании 


Модуль Теѕї::Моге реализует ряд простых функций тестирования об- 
щего характера, но есть еще несколько модулей Тез{: :*, содержащих 
специализированные подпрограммы, предназначенные для поиска бо- 
лее специфичных ошибок в программном коде, благодаря чему мы мо- 
жем значительно сократить объемы тестов без ухудшения их качест- 
ва. Поработав с ними, вы уже от них не откажетесь. 


В этой главе мы расскажем о самых популярных тестовых модулях. 
Они не входят в стандартный дистрибутив Рег| (как, например, мо- 
дуль Теѕі: :Моге), аесли входят, то это оговаривается отдельно. Вам мо- 
жет показаться, что вас немного обманули, потому мы часто будем от- 
сылать вас к документации, поставляемой с модулем, но тем самым 
мы мягко подталкиваем вас к выходу в мир Ре!1. За более подробной 
информацией вы можете обратиться к книге Яна Лэнгворта (Іар Гапе- 
уүогіһ) «Рег Теѕііпе: А Оеуеюорег’з Мофефоок», О’ВеШу, 2005, которая 
как раз охватывает обсуждаемую тему. 


Тестирование длинных строк 


В главе 17 было показано, что когда тест терпит неудачу, модуль 
Теѕі: :Моге в состоянии показать, что ожидалось получить и что было 
получено фактически. 


#1 /иѕг/оіп/рег1 
иѕе Теѕї: : Моге ‘по_р1ап’; 
1$( "Привет, Рег1!”, “Привет, рег!” ); 


В результате исполнения этого теста Теѕії: :Моге выведет сообщение об 
ошибке. 
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$ рег1 +еѕі.р1 


пот ок 1 

# Ғаі1еа тезф (+еѕі.р1 аї 1іпе 5) 
# дої: ‘Привет, Рег]! * 

# ехрестед: ‘Привет, рег!‘ 


ит 
# Гоок$ 11ке уои Ғаі1еа 1 їеѕї от 1 


А как быть, если сравниваемые строки имеют очень большой размер? 
Не очень-то хочется видеть в сообщении об ошибке строки, которые 
могут насчитывать сотни и тысячи символов. В подобных случаях нам 
достаточно увидеть начало участка, где обнаружены различия. 


#1 /иѕг/оіп/рег1 


иѕе Теѕї: :Моге ‘по р1ап' 
иѕе Тезт: : опо гіпо 


15 ѕ1гіпо( 
"Тһе аџіск ргомп Тох јитреа оуег +һе 1ағу дод\п” х 10, 


"Тһе аџіск ргомп ох јитреа оуег һе 1ағу дод\п" х 9 
"Тһе аитск ргомп Рох јитреа оуег їһе 1ағу сате1" 
) 


Теперь сообщение об ошибке не должно содержать полные строки, 
а лишь тот участок, где обнаружены различия. Наш пример достаточ- 
но искусственный, однако представьте, что вы имеете дело с веб-стра- 
ницей, с конфигурационным файлом или с любыми другими данными 
большого объема, которые нежелательно было бы целиком выводить 
внутри сообщения об ошибке. 


ог ок 1 
Ғаі1еа тезе іп 1опо ѕїгіпо.р1 аї 11те 6. 
901: ...” Пе Тату дод\х{0а}"... 
# 1епоїћ: 450 
ехрестеа: ...” {пе 1ағу сате1"... 
1епоїћ: 451 
ѕігіподѕ редіп То діҒҒег аї спаг 447 
Т. 
[оокѕ 1іке уои Ғаі1еа 1 +їеѕі о? 1 


Тестирование файлов 


Проверить наличие некоторого файла и определить его размер доволь- 
но просто, но чем больше объем программного кода, тем выше вероят- 
ность допустить ошибку и ввести в заблуждение программиста, кото- 
рый будет заниматься сопровождением модуля. 


Проверить наличие файла можно было бы посредством функции ок() 
из модуля Теѕі: : Моге. Это можно сделать с помощью оператора провер- 
ки существования файла -е. 
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иѕе Тезт::Моге ‘по_р1ап’; 
ок( -е ‘тіппом. 96°); 


В принципе все работает как надо, если это действительно то, что нужно 
было проверить, но в этом отрывке нет ничего, что говорило бы о наших 
намерениях. А как быть, если, наоборот, нужно убедиться в отсутствии 
некоторого файла перед началом тестирования? Тест, выполняющий 
такую проверку, отличается от предыдущего единственным символом. 


иѕе Тезт::Моге ‘по_р1ап’; 
ок( ! -е '‘тіппом. 96’); 


Чтобы сообщить о своих замыслах, здесь можно было бы добавить ком- 
ментарий, но в большинстве случаев комментарии пишутся в предпо- 
ложении, что читающий их понимает суть происходящего. А что напи- 
сать здесь? Сообщить, какая из двух ситуаций проверяется? Следует 
ли дополнительно указать, что тест считается пройденным в случае об- 
наружения файла? 


иѕе Тезт::Моге ‘по_р1ап’; 


# проверить наличие файла 
ок( ! -е '‘тіппом. 96’); 


Брайан написал модуль Теѕї::Рі1е, имена подпрограмм которого сами 
поясняют суть происходящего. Если требуется сообщить, что тест бу- 
дет считаться пройденным только при условии наличия файла, можно 
воспользоваться функцией ѓі1е_ехіѕіѕ_ ок. 


иѕе Тезт::Моге ‘по_р1ап’; 
изе Тезт: :Рі1е; 


Рі1е өхіѕїѕ ок( '`тіппом. 96’); 


Сообщить, что тест будет считаться пройденным только при отсутст- 
вии файла, позволяет функция Ғі1е пої _ехіѕіѕ_ок. 


иѕе Теѕї: : Моге ‘по_р1ап’; 
иѕе Теѕї: :Рі1е; 


Ғі16 поі өхіѕіѕ ок( ‘т1ппом. 96’); 


Это достаточно простой пример, но в модуле имеется масса других 
функций, имена которых соответствуют той же схеме именования: 
первая часть имени сообщает о предмете проверки (#і16_ехіѕїѕ), а вто- 
рая – о том, считается ли тест пройденным в случае выполнения усло- 
вия (_0к). Такие имена функций сильно упрощают понимание смысла 
тестов. 


иѕе Тезт::Моге ‘по_р1ап’; 
иѕе Теѕї: :Е11е; 


ту $#і1е = 'тіппом. 96’; 


#Ғі1е ехіѕїіѕ ок( $Ғі1е ); 
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Ғі1е пої етрїу ок( $#і1е ); 
+116 _геадар1е_ок( $#і1е ); 
Ғі1е тіп ѕіге ок( ФРі1е, 500 ); 
11е птоде_1$( $#Ғі1е, 0775 ); 


Таким образом, имена функций не только сообщают о намерениях, но 
и повышают удобочитаемость программного кода. 


Тестирование устройств $ТООЧТ и $5ТР”ЕКК 


Одно из преимуществ функции ок() (и подобных ей) заключается в том, 
что они выводят информацию не в устройство 570007, а в дескриптор 
файла, являющийся дубликатом 570007, который создается при запуске 
тестового сценария. Разумеется, эти тесты возможны при условии, что 
ОТООЦТ не изменяется в программе. Итак, предположим, что нужно 
проверить подпрограмму, выводящую некую информацию в 510007, 
например метод еаї класса Ногзе: 


иѕе Теѕї: :Моге ‘по_рТап’ 
иѕе ок ‘Ногзе’; 
іѕа ок(ту $гіддег = Ногѕе->патеа( 'Триггер’), ‘Ногзе’); 


ореп $ТООЦУТ, ">+еѕі. оц” ог іе “Невозможно перенаправить $ТООУТ! $! "; 
фігіддег->еаї("сено"); 
с1оѕе этот; 


ореп Т, "+еѕі. ои” ог 91е "Невозможно прочитать из іеѕі. оџї! $"; 

ту @сопіепіѕ = <Т>; 

с10ѕе Т; 

іѕ(јоіп("”, ёсопіепїѕ), "Триггер ест сено. \п”, "Триггер ест то, что надо") 


ЕМО { ип1іпк "+еѕї.оџї" } # убрать навоз после того, как лошадь поест 


Обратите внимание: прежде чем выполнить тест, вывод с устройства 
ТОТ перенаправляется во временный файл +їеѕі. оџї. Далее содержи- 
мое файла передается функции 1$(). Мы закрыли 5710007, но функция 
1$() по-прежнему имеет доступ к исходному устройству 570007, благода- 
ря чему тестирующая система увидит результат прохождения теста — 
ок или пої ок. 


Создавая временный файл, как в этом примере, не забывайте, что те- 
кущим является каталог, где находится сценарий (даже если команда 
паке тез{ была запущена из другого каталога). Кроме того, старайтесь 
выбирать как можно более платформонезависимые имена файлов, ес- 
ли необходимо обеспечить переносимость сценариев. 


Однако для проведения подобных тестов существует более удобный 
путь. Все, что было сделано выше, может сделать модуль Теѕі: :Оџіриї. 
Этот модуль предоставляет различные функции, которые автоматиче- 
ски делают все необходимое. 


#1 /иѕг/оіп/рег1 
иѕе ѕїігісї; 
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иѕе Теѕї: :Моге “пор1ап” 
иѕе Теѕї: :Оиїриї; 


зиб ргіпї ће110 { ргіпі 5ТООЦТ “Добро пожаловать на борт! \п" } 
ѕир ргіпї еггог { ргіпі ТРЕВА “В судне обнаружена пробоина!\п” } 


ѕіаои 15( \&ргіпї ће110, “Добро пожаловать на борт\п” ); 
ѕіаегг_ 11іке( \&ргіпі өггог, дг/ѕһір/ ); 


В первом аргументе все эти функции принимают ссылки на подпро- 
граммы, но для нас это не проблема, поскольку данную тему мы уже об- 
суждали в главе 7. Если проверяться должна не подпрограмма, а лишь 
некоторый отрывок программного кода, достаточно будет оформить 
проверяемый отрывок в виде подпрограммы и использовать ее для тес- 
тирования. 


ѕир їөѕі іһіѕ { 


} 
зіаои 15( \&іеѕїі һіѕ, ... ); 


Если отрывок программного кода имеет небольшой размер, можно 
оформить его в виде анонимной подпрограммы прямо в строке вызова 
функции. 


зіаоиї 15( зиб { ргіпі "Добро пожаловать на борт” }, "Добро пожаловать 
на борт" ); 


Можно даже использовать встроенные блоки программного кода, как 
в операторах дгер и пар. Обратите внимание: в этом случае, как и в опе- 
раторах работы со списками дгер и пар, после блока программного кода 
запятая не ставится. 


зіаои іѕ { ргіпі “Добро пожаловать на борт” } “Добро пожаловать на борт”; 


Кроме модуля Теѕі::0иїриї существует еще один модуль Теѕї: :Магп, ко- 
торый позволяет выполнять аналогичные проверки с устройством 
ТРЕКА. Правда, при работе с его функциями допускается только блоч- 
ная форма записи. 


#1 /иѕг/оіп/рег1 


иѕе Теѕї: : Моге "пор1ап” 
иѕе Теѕї: :Магп; 


ѕир ада 1еїтегѕ { “Шкипер” + “Джиллиган” } 
магпіпо 11ке { ада 1еітегѕ( ) }, аг/поп-питегіс/; 
Мы все стремимся создавать программный код, не порождающий пре- 


дупреждений,! и можем заранее проверить, что у нас получается. Пре- 


1 При компиляции. – Примеч. науч. ред. 
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дупреждения Ре! могут меняться от версии к версии, и иногда требует- 
ся узнать, где появляются новые предупреждения. В этом нам поможет 
модуль Теѕі: : №оМагп1п9$, который несколько отличается от описанных 
выше. Он автоматически добавляет еще один тест в момент загрузки 
модуля, а нам остается увеличить на единицу число тестов, которое 
передается модулю Теѕі: :Моге. 


! Ичзг/6зп/рег1 
иѕе магпіпо$; 


иѕе Теѕї::Моге Теѕїѕ => 1; 
иѕе Теѕі: : МоМагпіпоѕ; 


у( $п, $ ); 
попробовать использовать неинициализированные значения 
у $ѕит = $п + $п; 


В этом примере производится попытка вычислить сумму двух неини- 
циализированных переменных. В подобных ситуациях появляется раз- 
дражающее предупреждение «иѕе оѓ џпіпібіа[ілеа уаіџе» (попытка ис- 
пользовать неинициализированное значение) (вывод предупреждений 
при этом должен быть разрешен!). Что делать, если необходимо избе- 
жать появления подобных предупреждений? Модуль Төѕї: : М№оМагпіпоѕ 
покажет нам, где эти сообщения возникают, а мы сможем затем лик- 
видировать проблему. 


Че 
ОЕ ок 1 - по магпіпоѕ 
Ғаі1еа тез ‘по магпіпоѕ' 
іп /изг/10оса1/116/рег15/5.8. 7/Тез{/Момагп1пд$. рт аї 11те 45. 
Тһеге меге 2 магп1п9($) 
Ргеу1оиз їеѕї 0 ``" 
056 ОҒ ипіпіїіа1іхед уа1ие іп адаіііоп (+) аї помагпіпоѕ.р1 1іпе 6. 


Ргеуіоиѕ їеѕї 0 `` 
056 ОҒ ипіпіїіа1іхед уа1ие іп адаі+іоп (+) аї помагпіпоѕ.рі 1іпе 6. 


[оокѕ 1іке уои Га11еа 1 Теѕїі о? 1 гип. 


Работа сложными объектами 


Иногда, чтобы проверить фрагмент системы, приходится тестировать 
ее целиком, хотя в работоспособности некоторых частей мы можем 
быть уверены на все сто процентов. Например, нет необходимости от- 
крывать массу соединений с базой данных или создавать экземпляры 
объектов, занимающие огромные объемы памяти, если мы тестируем 
только малый фрагмент кода. 


Модуль Теѕі: : МоскОБ]ес+ позволяет создавать ложные объекты. Мы пе- 
редаем ему информацию о части интерфейса объекта, который хотим 
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тестировать, а ложный объект симулирует этот интерфейс. Как прави- 
ло, метод ложного объекта не должен выполнять никаких действий, 
а просто сразу возвращает требуемое значение. 


Например, вместо того чтобы создавать реальный объект М1ппом, что 
в свою очередь может привести к созданию массы других объектов, мы 
можем создать ложный объект, который будет имитировать поведение 
реального объекта. После того как будет создан ложный объект, мы со- 
храняем его в переменной $М1ппом и описываем, что должны возвращать 
его методы. В примере ниже мы определили, что метод епд1пез_оп дол- 
жен возвращать значение «истина», а метод тоогед_То_40ск-— «ложь». 
В этом примере тестируется не объект корабля, а другой объект, кото- 
рый принимает его в качестве аргумента. Вместо того чтобы проверять 
работу объекта с реальным кораблем, мы подсовываем ему имитатор. 


! Ичзг/6зп/рег1 


иѕе Тезт::Моге ‘по_р1ап’; 
изе Тезт: : Моск0бјесї; 


ту $М1ппом = Веа1: :Орјесі: :С1азз->пем( ... ); 
ту ФМіппом = Теѕ+: : МоскОбјесі->пем( ); 


Міппом->ѕеї_гие( `епдіпеѕ оп’ ); 
Міппом->ѕеї_гџе( ‘һаѕ тарѕ’ ); 
М1 ппом->зет_Та1зе( `тоогеа +о_доск' ); 


ок( ФМіппом->еподіпеѕ оп, “Двигатель работает” ); 
ок( ! ФМіппом->тоогеа о доск, “Швартовы отданы” ); 


ту Ф0иагтегтаѕтег = Т$1апа: : Р101тіпод->пем( 
ѕһір => #$Міппом, 


ок( $0иџагъегтаѕег->һаѕ_ тарѕ, “Мы можем отыскать карты” ); 


Можно создать более сложные имитаторы методов, которые будут де- 
лать все, что только нам заблагорассудится. Предположим, что мето- 
ды должны возвращать целые списки значений. Возможно, при этом 
придется симулировать соединение с базой данных и извлечение неко- 
торых записей из таблиц. По ходу разработки нам пришлось бы не- 
сколько раз соединяться с реальной базой данных в поисках ошибки. 


В следующем примере демонстрируется метод 115{_патез ложного объ- 
екта, имитирующего доступ к базе данных, который должен возвра- 
щать список из трех имен. Нам точно известно, что объект доступа к ба- 
зе данных работает правильно, и мы хотим проверить работу другого 
объекта (который в этом достаточно искусственном примере не пока- 
зан), поэтому подменяем реальный объект ложным. 


#1 /иѕг/оіп/рег1 


иѕе Теѕї: : Моге ‘по_р]1ап’; 
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иѕе Тезт: : Моск0рјесї; 

ту $00 = Теѕі: : Моск0бјесї->пем( ); 
# $00 = РвІ->соппесї( ... ); 
$ар->тоск( 


1151 патеѕ => ѕир { ом( Джиллиган Шкипер Профессор ) } 
); 


ту @патеѕ = $00->1151 патеѕ; 


1$( зса1аг @патеѕ, 3, 'Получено верное число результатов’ ); 
1$( $патез[0], ‘Джиллиган’, ‘Первое имя - Джиллиган’ ); 


рг1пЕ "Получен список следующих имен: @патез\п”; 


Тестирование документации в формате РОО 


Можно проверять не только программный код. Документация не ме- 
нее важна, чем программный код, поскольку едва ли кто-то сможет 
использовать наш расчудесный модуль, если будет неизвестно, что он 
делает. Как уже говорилось в главе 16, в Рег применяется метод 
встраивания текста в формате РОР в тело модуля. Этот текст может 
быть извлечен и выведен на экран с помощью таких инструменталь- 
ных средств, как рег190с. 


Как определить, не нарушили ли мы соглашения по форматированию, 
что может привести к невозможности извлечения документации из те- 
ла модуля. Для решения подобных проблем Брайан написал модуль 
Тезт: :Род, который просматривает исходные тексты модуля и выиски- 
вает ошибки нарушения формата РОР.! В большинстве случаев весь 
программный код тестов можно взять из документации Тез: : Рой. 


иѕе Тезт: :Моге; 

еуа1 “изе Тезт::Рой 1.00"; 

р1ап $К1р_а11 => "Теѕї::Роа 1.00 гедиігеа Рог +еѕїіпо РОО” і? $0; 
а11_роа #і1өѕ ок(); 


В этом примере сначала производится попытка загрузить модуль 
Тезт : : Род с помощью строковой формы оператора еуа1, о которой расска- 
зывалось в главе 2. Если попытка оканчивается неудачей, в перемен- 
ную $@ записывается текст сообщения об ошибке и модулю Теѕі: :Моге 
сообщается о необходимости пропустить все оставшиеся тесты. 


Если же модуль загрузился, проверка ѕкір_а11 будет пройдена и выпол- 
нится функция а11_роай _#і1еѕ_ ок. Модуль отыщет все файлы РОГ и про- 
верит соответствие формату. Если появится необходимость определить, 
какие файлы должны проверяться, мы можем сделать и это. Когда 


1 Теперь сопровождением этого модуля занимается Энди Лестер (Апау Гезфег). 
Модуль обрел такую популярность, что был включен в состав модуля М д- 
ше: :ЅТагіег и службы тестирования СРАМ (СРАМ Тезфег Бегу1се – СРАМТЬ). 
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функция а1] р09_11]1ез_ок вызывается без аргументов, она пытается 
отыскать все файлы в формате РОР. Если ее вызвать с аргументами, то 
она проверит только указанные файлы. 


иѕе Тез: :Моге; 

еуа1 “изе Тезт::Рой 1.00"; 

р1ап $К1р_а11 => "Теѕї::Роа 1.00 гедиігеа Рог +еѕїіпо РОО” і? $0; 
а11_роа #і1еѕ ок( '116/Мар®. рт’); 


Проверка соответствия документации формату РОР - это еще не все, 
что нам доступно. Мы можем проверить наличие описаний у всех ме- 
тодов. Для этих целей предназначен модуль Теѕї: : Рой: :Соуегаде. Он 
просматривает встроенную документацию и сообщает имена подпро- 
грамм, описание которых не было найдено. Порядок работы с этим мо- 
дулем почти такой же, как и с модулем Төѕі: : Роа.1 


иѕе Теѕї: : Моге; 
еуа1 “изе Тезт: : Роа: : Соуегаде"; 
рап ѕкір а11 => 
"Тезт: : Рой: :Сомегаде гедиігеа Рог +еѕїіпо рой соуегаде” і? $@; 
рап їеѕіѕ => 1; 
роа_соуегаде ок( "Іѕ1апа: : Р10ї+іпд: : Марѕ"); 


Оба эти модуля могут выполнить гораздо большее число проверок, чем 
было показано, поэтому мы рекомендуем вам обратиться к документа- 
ции этих модулей за более подробной информацией по данной теме. 
Если для создания дистрибутива применялся модуль Мойџ1е::Ѕїагїег, 
рассмотренный в главе 16, то все эти тесты, скорее всего, уже будут 
созданы автоматически. 


Степень покрытия тестами 


Кроме всего прочего мы можем проверить степень покрытия про- 
граммного кода тестами. В идеальном случае мы проверили бы нашу 
программу всеми возможными способами с разными входными пара- 
метрами и в разных средах окружения. Именно таким путем пошел бы 
Профессор, но в реальной жизни мы больше похожи на Джиллигана.? 


Мы не будем слишком углубляться в теорию и практику проведения 
тестов, проверяющих степень покрытия, но вы должны понимать, что 
есть огромное число параметров, которые можно было бы проверить. 
Можно узнать, сколько операторов было выполнено в процессе тести- 


1 Потому что оба эти примера были написаны Энди Лестером. 

2 Ә. Дэйкстра утверждал, что: а) тестированием в принципе нельзя охватить 
все возможные состояния программы; б) тестирование любой глубины мо- 
жет выявить наличие ошибок в обозначенных местах, но ничего не может 
сказать об отсутствии ошибок в программе; в) в природе не существует уже 
законченных и сданных программ, не содержащих ошибок, – различие со- 
стоит только в «плотности» этих скрытых ошибок. – Примеч. науч. ред. 
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рования (было охвачено) или сколько было охвачено ветвей (сколько 
было путей, по которым шло исполнение). Существуют и другие пока- 
затели степени покрытия, например количество охватываемых выра- 
жений. Изучение этой темы лучше начать с документации к модулю 
реуе1: :Соуегаде: : Тифогта1. 


С модулем поставляется программа сооег, которая выполняет большую 
часть необходимых действий. Для того чтобы получить характеристи- 
ки конкретной программы, достаточно загрузить модуль Пеуе1 : :Соуег 
во время ее запуска. 


$ рег1 -Мреуе1::Соуег уоигргод агоѕ 
$ сомег 


В процессе работы программы модуль 0е\е] : :Соуег создает файл, куда 
записывается вся собранная им информация. Программа сорег превра- 
щает этот файл в НТМГ-страницы. На странице соуегаде. һіті собраны 
сводные статистические характеристики тестируемой программы. Сле- 
дуя по гиперссылкам, можно получить характеристики каждого файла 
программы. 


Тестирование дистрибутива выполняется во время проведения всех ос- 
тальных тестов. Сначала надо удалить все предыдущие результаты 
проверки на степень покрытия, для чего программе сооег передается 
параметр -де1ете. После этого запускается команда паке їеѕї, и одно- 
временно модулю 0е\уе1: :Соуег предоставляется возможность выпол- 
нить свою работу. Чтобы при каждом запуске тестирующей системы 
модуль 0е\е] : :Соуег загружался автоматически, следует записать па- 
раметр -МОеуе1 : :Соуег в переменную окружения НАНМЕ$ $ РЕВІ_ЅАТТСНЕЅ. 
После этого тестирующая система при каждом вызове Ре!] (для каж- 
дого из тестируемых файлов) будет автоматически загружать модуль 
Пеуе1: :Соуег. Запущенный сценарий сразу добавляется в базу данных 
проверки степени покрытия (поэтому мы удаляем базу данных перед 
новым запуском). Наконец, по завершении тестов снова вызывается 
программа соџоег и полученные сведения преобразуются в удобочитае- 


мую форму. 


$ соуег -Ч9е1ете 
$ НАВМЕЗ$ _РЕВЕ_ЗМТТСНЕ$ =-МОеуе] : :Сомег таке +еѕі 
$ сомег 


Результаты исследований записываются в подкаталог сооег_аБ теку- 
щего рабочего каталога. База данных с информацией о степени покры- 
тия также помещается в подкаталог сорег 6, а стартовая страница 
с результатами - в файл сооег аЬ /сооегаве.ћіті. 


Разработка собственных модулей Теѕї::* 


Если вам потребуется провести специфические испытания, не ждите, 
пока кто-то напишет соответствующий модуль, а напишите собствен- 
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ный, обратившись для этого к модулю Теѕі: :Виі1йег, который возьмет 
на себя решение всех проблем по интеграции с модулями Теѕї::Нагпеѕѕ 
и Тез{: :Моге. Если посмотреть внимательнее, можно без особого труда 
заметить, что «за спиной» большинства существующих модулей Теѕі::* 
стоит модуль Теѕі: :Ви11 дег. 


Преимущество функций-тестов заключается в том, что они служат 
своего рода обертками вокруг программного кода многократного поль- 
зования. Чтобы проверить нечто, вместо последовательности операто- 
ров применяется имя функции. Это очень удобно, особенно если имя 
функции наглядно сообщает о смысле теста, но все гораздо сложнее, 
если надо выразить то же самое в виде последовательности операторов. 


В главе 4 нами был написан программный код, который проверял на- 
личие необходимых предметов экипировки у потерпевших корабле- 
крушение. Попробуем превратить этот программный код в модуль 
Теѕї::*. Как и прежде, необходимые проверки будут выполняться с по- 
мощью подпрограммы сһеск_гедиігей іїетѕ: 


зи сһеск_гедиігеа і+етѕ { 
ту Фиһо = $1111; 
ту $11етз$ = $1111; 


ту @геди1гед = ам(солнечные_очки крем фляжка_с_водой накидка) 
ту @тіѕѕіпо = ( ); 


Тог ту $ітет (@гедиігеа) ‹ 
ип1ез$ (дгер $ітет ед $_, @$11етз) { # нет в списке? 
ргіпі "Фийо: отсутствует $1тем. \п” 
риѕћ @т1$$1п9, Ффііет; 


} 


1Е (@тіѕ5іпод) { 
ри1пЕ "Добавлены @тіѕѕіпо в саквояж @фітетѕ пассажира $мпо. \п”; 
риѕћ @$1{етз, @тіѕ5іпо; 


} 


Нам надо преобразовать эту подпрограмму в модуль Теѕі::*, который 
будет проверять наличие предметов экипировки (т. е. он не должен до- 
бавлять недостающие предметы) и выводить результат проверки. 
В своей основе все тестовые модули одинаковы. Свой модуль мы назо- 
вем Теѕї: : М1ппом: : Ведиігедї+етѕ и начнем со следующей заготовки: 


раскаде Теѕї: : Міппом: : Веди1тгедТ{ет$ 
иѕе ѕігісї; 


иѕе раѕе ам(Ехрогтїег); 
иѕе уагз ам(@ЕХРОВТ $Ф\УЕВУТОМ); 


иѕе Теѕї: :Виі1дег; 


ту $ТезЕ = Төѕі: :Виі1аег->пем( ); 


264 


Глава 18. Дополнительные сведения о тестировании 


ФМУЕВУТОМ = '0.10' 
@ЕХРОНТ = ом(сһеск_гедиігеа і+етѕ ок); 


зиб сһеск_гедиігеа і+етѕ ок { 
Иа: 
} 


1; 


Модуль начинается с объявления имени пакета, вслед за которым следу- 
ет директива, включающая режим ограничений, поскольку мы стара- 
емся выглядеть достаточно опытными программистами (если эта трех- 
часовая экскурсия и обречена, то не из-за какой-нибудь ошибки в нашей 
программе). Затем загружается модуль Ехрогїег и функция гедиігей_ 
{етз_ок помещается в список @ЕХРОНТ, поскольку нам необходимо, что- 
бы имя этой функции было видимо в пространстве имен вызывающего 
пакета, о чем мы уже рассказывали в главе 15. Затем устанавливается 
значение переменной $\/ЕВЗТОМ, о которой говорилось в главе 16. Един- 
ственное, о чем мы пока умолчали, – это модуль Теѕї: :Ви11дег. В нача- 
ле тестового модуля создается новый экземпляр класса Теѕї: :Виі1аег, 
ссылка на который записывается в лексическую переменную $Тез+, об- 
ласть видимости которой ограничивается рамками файла.! 


Всеми испытаниями будет заниматься объект $Теѕї. Мы удаляем все 
операторы вывода из спеск_геди1гед_1{тетз и операторы, изменяющие 
исходный список. После этого остается вставить операторы, которые 
сообщат испытательной программе, что все ок или пої ок. 


зиб спеск_геди1гед_11етз$ { 
ту Фипо = $1111; 
ту $11етз$ = $1111; 


ту @геди1гед = ам(солнечные_очки крем фляжка_с_водой накидка) 
ту @тіѕѕіпо = ( ); 


Тог ту $ітет (@гедиігеа) ‹ 
ип1еѕѕ (дгер $11ет ед $_, @$11етз) { # нет в списке? 
риѕћ @т1$$1п9, Ффііет; 


} 


1Е (@тіѕ5іпд) { 


} 


е1зе{ 


1 Чем-то напоминает глобальную переменную, за исключением того, что она 
не является переменной пакета и не видна за пределами файла. 
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Теперь мы должны добавить программный код, который превратит 
нашу функцию в тестовую. Чтобы сообщить тестирующей системе 
о происходящем, необходимо вызывать методы объекта $Теѕї. В любом 
случае последним должен вызываться метод $Теѕї->ок(), чтобы возвра- 
щаемое значение этого метода стало возвращаемым значением самой 
функции!. Если будет обнаружено, что некоторые предметы экипиров- 
ки отсутствуют, необходимо сообщить о неудачном прохождении тес- 
та, поэтому методу $Теѕї->ок() передается значение «ложь», но перед 
этим вызывается метод $Теѕі->0іао() с текстом сообщения об ошибке. 


зиб спеск_геди1гед_11етз { 
ту Фипо = $1111; 
ту $11етз$ = ѕһіғї; 


ту @геди1гед = ам(солнечные_очки крем фляжка_с_водой накидка); 
ту @тіѕѕіпо = ( ); 


Тог ту $ітет (@гедиігеа) < 
ип1еѕѕ (дгер $ітет ед $_, @%$ітетѕ) { # нет в списке? 
риѕћ @тіѕѕіпо, Ффііет; 


} 


1Р (@тіѕ5іпод) { 
$Теѕі->аіад("$иһо: отсутствует $ітет. \п") 
$Теѕї->оКк(0) 

} 

е1зе{ 
$Теѕї->оКк(1) 


} 


Вот и все. Можно было бы сделать гораздо больше, но нам это пока не 
требуется. После того как файл модуля Теѕї: : Міппом: : Неди1гед1Т1етз бу- 
дет сохранен, его сразу же можно будет использовать в тестовом сце- 
нарии. 


иѕе Тезт::Моге ‘по_р1ап’; 
иѕе Тезт: : Міппом: : Веди1 гедТТетз; 


ту @911110ап = ( 
611119ап => [ ам(геа ѕһігїі һаї 1иску_зоск$ ма+ег роїї1е) ] 
); 


сһеск_гедиігеа і+етѕ ок( @911119дап ); 


Поскольку в саквояже Джиллигана находятся не все обязательные 
предметы экипировки, тест завершится неудачей. В результате будет 
выведено пої ок и диагностическое сообщение. 


1 Нам редко нужны возвращаемые значения функций, т. к. в большинстве 
случаев функции-тесты используются как простые подпрограммы, но ни- 
что не мешает нам вернуть дополнительную осмысленную информацию. 
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пот ок 1 

м 

# Джиллиган: отсутствует солнечные_очки крем накидка. 

# Ғаїі1еа тез (/0Оѕегѕ/біпдег/Веѕкіор/раскаде_+еѕі.р1 аі 1іпе 49) 
# Гоок$ 11ке уои Ғаі1еа 1 їеѕї о? 1. 


Итак, работа над модулем Төѕї: ; Міппом: : АедиігедїІїетѕ закончена, и на- 
до бы его протестировать. Это делается при помощи модуля Төѕї: :Ви119- 
ег: : Тезтег, и данный вопрос вам придется изучить самостоятельно. 


Упражнения 


Ответы на эти вопросы вы найдете в приложении А в разделе «Ответы 
к главе 18». 


Упражнение 1 [20 мин] 


Напишите документацию к модулю Му: :11$1: : 1111, который был соз- 
дан в упражнении главы 17. Добавьте проверку документации, выпол- 
няемую с помощью модуля Те5ї: :Род. 


Упражнение 2 [20 мин] 


Напишите собственный модуль Тез{: :Му: :[1$1::111 с единственной 
функцией ѕип_ок, которая должна принимать два аргумента: фактиче- 
скую сумму и ожидаемую. Функция должна выводить диагностиче- 
ское сообщение в случае несовпадения сумм. 


пу $ѕит = ѕит( 2, 2); 
зит_ок( $ѕит, 4); 
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Передача модулей в СРАМ 


Вы можете распространять свои замечательные модули не только внут- 
ри своей организации, но и передать плоды своего труда всему сообще- 
ству Ре!1. Для этих целей существует специальный механизм, который 
называется Всемирная сеть архивов Рег (Сотргеһепѕіуе Рег| АгсШуе 
МебмогК – СРАМ), существующий уже более 10 лет и насчитывающий 
в своем составе более 9000 модулей. 


Всемирная сеть архивов Регі 


Коротко об истории появления и развитии СРАМ мы рассказывали 
в главе 3, но тогда она рассматривалась с точки зрения использования. 
Теперь посмотрим на СРАМ сточки зрения разработчика, стремящего- 
ся внести свой вклад. 


Успех СРАМ - явление далеко не случайное. Изначально проект заду- 
мывался таким образом, чтобы любой желающий имел возможность 
внести свой вклад максимально просто. Поэтому в составе СРАМ на- 
считывается более 9000 модулей. Было бы здорово, если бы подобная 
модель была воспринята и в других языках программирования.!2 


1 Но когда речь заходит об организации аналогичных архивов для других язы- 
ков программирования, первое, что пытаются сделать организаторы, — это 
установить массу ограничений, чего изначально избегали делать в СРАМ. 

2 Помимо организационных разногласий, о которых говорит автор, этому 
препятствует еще и серьезная объективная сложность - статическая струк- 
тура скомпилированного кода более традиционных языков, и самый яркий 
пример тому – С/С++. Для широкого использования такой код должен был 
бы параметризироваться (что легко достигается в Рег), а поставка модулей 
в исходных кодах с возможностью модификации его под особенности при- 
менения не решает проблему: модификация сводит на нет все проделанное 
ранее тестирование, гарантированное поведение ит. д. – Примеч. науч. ред. 
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Не забывайте, что СРАМ - это всего лишь огромное хранилище. В этом 
и заключается его привлекательность. Все остальные составляющие, 
например СРАМ Зеагеһ (лір: / /ѕеагсһ.срап.оге/), СРАМ№. рт и СРАМРИИ$. рт, 
просто используют это хранилище. 


Первый шаг 


Поскольку СРАМ - это всего лишь огромное хранилище файлов, все, 
что вам придется сделать, это загрузить туда свой программный код. 
Для этого: 


® Желательно оформить свой программный код в виде модуля 


® Необходимо создать учетную запись на сервере РАОБЕ (Рег Ал- 
%ћогз Ор]оа4 Ѕегуег) 


Учетная запись РАОБЕ – это ваш паспорт в мире СРАМ. Учетная за- 
пись выдается всем желающим, для этого достаточно отправить за- 
прос. С правилами оформления запроса можно ознакомиться на веб- 
странице ѓ/іїр:/ /шшош.срап.оте/ тойиез/04раиѕе.ћіті. По ходу оформ- 
ления вам будет предложено заполнить форму и предоставить о себе 
лишь самые основные сведения, такие как имя, адрес домашней веб- 
страницы, адрес электронной почты и предпочтительное имя учетной 
записи (имя пользователя). В настоящее время длина имени пользова- 
теля может составлять от четырех до девяти символов (имена некото- 
рых давнишних пользователей состоят всего из З символов).! Получив 
учетную запись, можно подумать об оформлении своих модулей. По- 
скольку ваши модули, скорее всего, будут использоваться в программах 
вместе с модулями других авторов, необходимо придумать уникальные 
имена пакетам модулей, чтобы исключить возможность конфликтов 
имен с уже существующими модулями и не вводить в заблуждение тех, 
кто будет просматривать содержимое СРАМ. К счастью, в списке Рег1 
Моаџшеѕ (тойиіезѕФ@регі.ог=) вы найдете массу добровольцев, давно ра- 
ботающих с СРАМ, которые помогут вам избежать большинства воз- 
можных проблем. 


Прежде чем отправить свое первое письмо администрации сервера 
РАОВБЕ, попробуйте: 


® Просмотреть список имеющихся модулей. Понять принцип имено- 
вания. Возможно, что ваш модуль повторяет уже существующие, 
тогда, наверное, лучше оформить свой вклад в виде «заплаты» к су- 
ществующему модулю. 


® Посетить список архивов (ссылки вы найдете на РНр:/ /13{3.ре.от5/) 
и ознакомиться с правилами общения. Это поможет вам избежать 


1 Изначально длина имени пользователя сервера РАПБЕ не могла превы- 
шать пяти символов, пока Рэндал не захотел получить имя МЕВИ УМ, в резуль- 
тате чего были внесены соответствующие изменения. 
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неприятных мгновений, когда будете читать ответ на свой вопрос. 
Возможно, вам удастся подыскать более грамотную формулировку 
для своего вопроса. 


Не забывайте, что все это держится благодаря усилиям доброволь- 
цев, которые далеко не идеальны, и все, что они делают для сообще- 
ства Рег1, они делают в свое свободное время. Поэтому наберитесь 
терпения и будьте доброжелательны. 


Подготовка дистрибутива 


Как только будет улажен вопрос с именем модуля и модуль пройдет 
тестирование под этим именем (если в этом есть такая необходимость), 
подготовьте дистрибутив к передаче. Этот процесс мало чем отличает- 
ся от подготовки дистрибутива для внутреннего использования, одна- 
ко желательно принять во внимание следующие моменты: 


Дистрибутив должен содержать файл ВЕАОМЕ. В СРАМ этот файл 
автоматически извлекается из дистрибутива, после чего он становит- 
ся доступен для просмотра тем, кто пожелает ознакомиться с функ- 
циональными возможностями модуля, прежде чем загрузить его. 


Создайте и протестируйте свои файлы Майе} 1е.РГ или ВиИА.РГ.. 
Без них файлы тоже принимаются в СРАМ, но те, кто скачивают 
модуль, выражают по этому поводу свое неудовольствие, потому 
что им приходится самостоятельно выяснять порядок его сборки 
и установки. 


Файл МАМТЕЕ$Т должен содержать точный список файлов, входя- 
щих в дистрибутив. Если вы добавили в архив какие-либо файлы, 
они обязательно должны быть указаны в файле МАМГРЕЗТ. Для 
этого достаточно запустить команду паке папіѓеѕї, которая обновит 
содержимое файла в соответствии с текущим состоянием дистрибу- 
тива.!,2 


Дистрибутив должен иметь логичный номер версии. В файле Маѓе- 
е.РГ, должно быть определено значение \УЕНЗТОМ или \УЕВЗТОМ_ЕВОМ. 
Если в состав дистрибутива входит единственный модуль (файл 


Если команда паке папіғеѕі добавит в список слишком много файлов, мож- 
но создать файл МАМТЕЕБТ.5 КТР, где следует определить регулярные вы- 
ражения Ре, отбирающие имена файлов, которые нужно игнорировать. 
После того как этот файл будет создан, команда паке папіѓеѕї удалит из спи- 
ска МАМТЕРЕБТ все имена файлов, которые соответствуют указанным регу- 
лярным выражениям. 

В предыдущей сноске речь идет о «лишних» файлах из числа находящихся 
в рабочем каталоге на время сборки (временные файлы, промежуточные 
версии, результаты тестирования и т. д.). Как было отмечено, все без ис- 
ключения файлы, составляющие конечный вид пакета, должны быть 
включены в МАМІЕЕЅТ. – Примеч. науч. ред. 
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с расширением рт), лучше определить значение МЕВЅІОМ_ ЕВОМ. Если 
дистрибутив состоит из нескольких модулей, то следует изменять 
значение \ЕВЗТОМ в соответствии с версией главного модуля. Кроме 
того, при выпуске новой версии модуля номер версии должен нара- 
щиваться в лексографическом порядке.! (Вслед за версией 1.9 не 
должна следовать версия 1.10, поскольку, даже если вы и называе- 
те ее как «версия один точка десять», тем не менее для инструмен- 
тальных средств, выполняющих сравнение версий, она будет верси- 
ей 1.1.) 


• В состав дистрибутива желательно включать тесты! Если вы этого 


еще не сделали, прочитайте главу 17. Ничто не придает такой уве- 
ренности? в программном коде, как несколько десятков тестов, вы- 
полненных на этапе установки. Если вы не предусмотрели провер- 
ку на наличие ошибок, как вы узнаете, что этих ошибок нет на са- 
мом деле? 


• Попробуйте вызвать команду паке 01іѕїїеѕі. Она соберет дистрибу- 
тив из файлов, перечисленных в МАМ1ЁРЕБТ, распакует его в от- 
дельный каталог и запустит тесты, находящиеся в дистрибутиве. 
Если что-то не работает у вас, то и у того, кто загрузит ваш модуль 
из СРАМ, оно тоже не будет работать. 


Передача дистрибутива на сервер 


Как только ваш дистрибутив будет готов к отправке на сервер, открой- 
те веб-страницу на сервере РАОБЕ АНр://раизе.ре .отй /раизе/аил1йеп- 
диету? АСТ1ОМ=аа4_ит. Здесь вам будет предложено ввести зарегист- 
рированное имя пользователя РАОЅЕ и пароль, после чего вы сможете 
выбрать один из вариантов отправки дистрибутива. 


Закачать свой файл прямо по протоколу загрузки НТТР или передать 
для РАОЗЕ адреса в Интернете, где находится файл архива. Помимо 
этого будет предоставлена возможность закачать дистрибутив по про- 
токолу ЕТР на сайт Пр:/ /раизе.ре].от5/. 


Независимо от способа после отправки ваш дистрибутив должен по- 
явиться в списке внизу страницы. Возможно, вам придется подождать 
какое-то время, пока сервер РАОВБЕ заберет файл, но, как правило, вся 
операция передачи выполняется достаточно быстро. Если рядом с на- 
званием дистрибутива вы не увидите имя своей учетной записи, обра- 
тите внимание администратора на этот факт. 


После того как сервер РАОБЕ получит файл и определит, кому он при- 
надлежит, дистрибутив будет добавлен в список предметного указате- 
ля. Затем вам должно прийти уведомление от индексатора по элек- 


1 Об этой особенности авторы уже говорили подробно. – Примеч. науч. ред. 
2 Точнее иллюзии уверенности. — Примеч. науч. ред. 
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тронной почте. После этого ваш модуль начнет свою жизнь в СРАМ. Не 
забывайте, что буква М в аббревиатуре СРАМ означает «Меб\могК» 
(сеть), поэтому может пройти несколько часов или дней, прежде чем 
ваш модуль попадет на все зеркала СРАМ. Как правило, для этого тре- 
буется не более двух дней. 


Если вы обнаружили какую-либо проблему или у вас что-то не получи- 
лось, можно обратиться с вопросом к администрации РАОЅЕ, отпра- 
вив электронное письмо по адресу тоашез@реп.огв. 


Объявление о выпуске модуля 


Каким образом пользователи узнают о выходе вашего модуля? Соот- 
ветствующие объявления автоматически помещаются сразу в несколь- 
ких местах, включая: 


• Веб-страницу «Весепф шод1ез» (последние поступления) по адресу: 
ћ11р:/ /зеатсй.срап.ог5/. 


® Раздел «пе тодез» (новые модули) по адресу: ћіїр:/ /иѕе.регі.огв/. 


• Ежедневные объявления в списке рассылки «Рег! пеуѕ» (новости 
Рег). 


• Каналы ІКС, связанные с тематикой Рег|. Объявления о новых по- 
ступлениях автоматически посылаются по нескольким каналам 
сразу же после отправки дистрибутива на сервер. 


® Списки доступных обновлений или неустановленных модулей в од- 
ной из командных оболочек СРАМ, таких как СРАМ.рт или СРАМ- 
РЕ. рт. 


Кроме того, имеется возможность подготовить короткое объявление 
и послать его в группу новостей Оѕепеё – сотр4апё.рет.аппоипсе. От- 
правьте свое объявление, и в течение одного-двух дней оно обойдет все 
новостные серверы по всему земному шару. 


Тестирование на нескольких платформах 


Служба тестирования СРАМ Тезфегз (Ир: / /1ез1етз.срап.отЕ/) проводит 
автоматическое тестирование почти всех модулей, передаваемых 
в СРАМ. Добровольцы по всему миру автоматически получают новые 
версии модулей и проводят их тестирование на доступных им плат- 
формах. Таким образом, ваш модуль будет проверен практически на 
всех существующих платформах, во всех существующих операцион- 
ных системах и с самыми разными версиями Рет| (о существовании 
многих из которых вы даже не подозреваете). Результаты тестирова- 
ния отправляются автору модуля и автоматически добавляются в базу 
данных службы. Результаты тестирования любого модуля вы найдете 
на веб-сайте службы или на веб-сайте СРАМ Ѕеагсһ (й1р://зеагсй. 
срап.отЕ/). 
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Нередко тестеры помогают устранить проблемы, проявляющиеся на 
платформах, к которым у вас нет доступа. 


Подумайте о написании статьи или доклада 


Авторы модулей очень часто участвуют в конференциях, посвящен- 
ных языку Рег1. В конце концов, кто еще так квалифицированно рас- 
скажет о модуле, как не его автор? Чем больше появляется людей, за- 
интересованных в использовании вашего модуля, тем лучше, посколь- 
ку они будут посылать вам отчеты об обнаруженных ошибках, предло- 
жения по улучшению и исправления. 


Если вас немного пугает перспектива участия в конференциях или ес- 
ли вы не хотите ждать слишком долго, поищите местную группу поль- 
зователей Рег. Как правило, собрания в таких группах происходят 
часто, а объем группы не слишком велик, что позволит вам чувство- 
вать себя уютнее. Информацию о ближайшей к вам группе пользовате- 
лей вы можете поискать на веб-сайте группы Рег Мопеегѕ №Нр:// 
шши.рт.от5/. Если вы не найдете ничего более подходящего, начните 
именно с этой группы. 


Упражнения 


Ответы на эти вопросы вы найдете в приложении А в разделе «Ответы 
к главе 19». 


Упражнение [время не ограничено] 


Попробуйте написать модуль, который решал бы проблему зависа- 
ния,! просматривая исходные тексты на языке Ре!1.? Этот модуль дол- 
жен экспортировать функцию \111 һа1ї, которая получает строку и воз- 
вращает значение «истина», если строка является программным кодом 
на языке Рег] (но не бесконечным циклом), и «ложь» - в противном 
случае. 


1 Проблему бесконечных циклов – одну из возможных причин «зависаний», 
но далеко не единственную. — Примеч. науч. ред. 

2 һ11р:/ /еп.шікірейіа.оте/шікі/ Найіпе ртоет (ВНр://ги.шИирефа.от8 / и / 
Нат рто ет). 


Ответы к упражнениям 


Данное приложение содержит ответы к упражнениям из этой книги. 


Ответы к главе 2 


Упражнение 1 


Ниже приводится один из возможных вариантов решения. Аргументы 
командной строки программа получает в виде массива @АВС\, поэтому 
мы можем взять его в качестве исходного списка. Оператор проверки 
файлов -$ по умолчанию работает с переменной $_, а это, как известно, 
текущий элемент, проверяемый оператором дгер. Имена всех файлов 
с размером менее 1000 байтов помещаются в массив @ѕта11ег_їһап_1000. 
Этот массив становится исходным списком для оператора пар, который 
извлекает каждый элемент и возвращает его, добавив к нему пробелы 
в начале и символ перевода строки в конце. 


Е-- 


! /иѕг/ріп/регі 
ту @ѕта11ег +һап 1000 = огер { -ѕ $ < 1000 } @АВСҮ; 
ргіп тар { “ $ \п” } @ѕта11ег +һап 1000 


Как правило, мы стараемся обойтись без промежуточного массива. 


ргіп тар { “$ \п” } дгер { -$ < 1000 } @АНОМ; 


Упражнение 2 


По умолчанию в качестве заранее определенного каталога программа 
использует домашний каталог. Когда подпрограмма сһііг вызывается 
без аргумента, она выполняет переход в домашний каталог (это одна 
из немногих функций Рег], которая не использует переменную $ по 
умолчанию). 
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Приложение А 


Бесконечный цикл ћі1е продолжает работу до тех пор, пока не будет 
выполнено условие в операторе 1а5ї, прерывающем цикл. Взглянем на 
условие поближе: здесь не просто проверяется значение «истина». Мы 
проверяем, определено ли регулярное выражение и имеет ли оно нену- 
левую длину. Таким образом, цикл будет прерван в случае получения 
ипдет (конец ввода) или пустой строки (которая получится в результа- 
те нажатия клавиши Епїег). 


После того как регулярное выражение будет прочитано, мы выполня- 
ем те же действия, что и в ответе на предыдущее упражнение. Правда, 
на сей раз в качестве исходного списка оператора дгер выступает ре- 
зультат работы функции 9100. Шаблон оборачивается в блок е\уа1{} — 
на тот случай, если он не сможет быть скомпилирован (например, ко- 
гда в его составе имеются непарные скобки). 


#1 /иѕг/оіп/рег1 
сһаїіг; # переход в домашний каталог 


мһі1е( 1) 
{ 
ргіпї "Введите регулярное выражение >"; 
сһотр( ту Фгедех = <5ТрІМ> ); 
1аѕї ип1езз( деғіпеа $гедех && 1епоїћ $гедех ); 


ргіпї тар { “ $ \п" } дгер { еуа1{ /$гедех/ } } 
9106( ”.* +”); 


Ответы к главе 3 


Упражнение 1 


Вся хитрость этого упражнения заключается в том, чтобы поручить 
черную работу модулю. Это прекрасный пример работы с модулями! 
Модуль (мі (суа - это аббревиатура от английского «сиггепё уогкшя 
дігесёогу», что в переводе на русский язык означает «текущий рабо- 
чий каталог») автоматически импортирует функцию деїсмий. Нам не 
надо задумываться над тем, как она работает, достаточно знать, что 
она справляется со своими обязанностями на большинстве основных 
платформ. 


После того как путь к текущему каталогу будет записан в переменную 
$сма, ее можно будет использовать в качестве первого аргумента мето- 
да саїҒі1е класса Е11е: :Зрес. Второй аргумент метода выбирается из 
исходного списка оператором пар и переносится в переменную $_. 


#1 /иѕг/оіп/рег1 


иѕе Сма; 
иѕе Ее: :5рес; 


ту $сма = оеїсма; 
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ри1пЕ тар { “ "”. Рі1е::8рес->сағі1е( $сма, фф ) . “\п" } 
9100( ".* *" ); 


Упражнение 2 


Не думаю, что вы столкнетесь с серьезными проблемами при установ- 
ке модуля. Но если это произойдет, можете обратиться с вопросами 
к Брайану, поскольку он является автором этого модуля, как и авто- 
ром программы срап, которую вы наверняка будете использовать для 
установки модуля. 


После установки модуля нам остается лишь следовать примеру из до- 
кументации к нему. Наша программа принимает номер ІЅВМ в виде 
аргумента командной строки и создает новый объект Т5ВМ, который со- 
храняется в виде переменной $1501. Затем мы просто делаем все в соот- 
ветствии с примером из документации. 


| /иѕг/ріп/регі 
иѕе Виз1пез$: : Т5ВМ; 


у $1361 = Виѕіпеѕѕ: : І5ВМ№->пем( ФААСМ[0] ); 


ргіпї "ІВМ: “. $іѕрп->аѕ ѕігіпо . "\п” 
ргіп “Код страны: " . Фіѕрп->соипігу соде . “\п”; 
рг1пЕ “Код издательства: " . $іѕрп->рир1іѕһег соде . “\п"; 


Ответы к главе 4 


Упражнение 1 


Все они обращаются к одному и тому же элементу, за исключением 
второй строки, ${$91п9ег[2]}[1]. Эту строку можно привести к виду 
$91пдег[2][1]. Она обращается к массиву @0іпдег, а не к скалярной пе- 
ременной $91пдег. 


Упражнение 2 
Прежде всего создадим сам хеш: 


ту @911119ап = ам( красная рубашка шляпа счастливые_носки фляжка_с_водой) 
ту @ргоҒеѕѕог = дм(крем фляжка_с_водой рулетка батарейки радиоприемник) 
ту @ѕкіррег = ом(голубая_рубашка шляпа накидка солнечные_очки крем) 
ту %а11 = ( 

“Джиллиган” => \@91111ідап 

"Шкипер” => \@ѕкіррег 

“Профессор” => \@ргоғеѕѕог 


); 
Затем передадим этот хеш первой подпрограмме: 


сһеск_і+етѕ Рог а11(\%а11); 
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Первым аргументом подпрограмме передается ссылка на хеш, поэто- 
му, чтобы получить ключи и соответствующие им значения, ссылку 
нужно разыменовать: 


зи сһеск_іетѕ Ғог_а11 { 
ту $а11 = эП1 ТЕ; 
Тог ту Фрегзоп (зогЁ Кеуз %$а11) { 
сһеск_гедиігеа ітетѕ(фрегѕоп, $а11->{$регзоп} ) 


} 
После этого вызывается оригинальная подпрограмма: 


зи спеск_геди1гед_11етз$ { 
ту Фипо = $1111; 
ту $11етз$ = $1111; 
ту @геди1гед = ам(крем солнечные очки фляжка_с_водой накидка) 
ту @тіѕѕіпо = ( ); 
Ғог ту $і+ет (@гедиігеа) { 
ип1еѕѕ (дгер $іїет өд $_, @$11етз) { # нет в списке? 
ргіпі "Фийо: отсутствует Фі+ет. \п” 
риѕћ @тіѕѕіпо, Ффііет; 


} 

1Е (@тіѕ5іпд) { 
ргіпі " Добавлены @тіѕѕіпо в саквояж @$1{етз пассажира $мпо. \п" 
риѕћ @$1{етз$, @тіѕ5іпо; 


Ответы к главе 5 


Упражнение 1 


Фигурные скобки (в данном случае конструктор анонимного хеша) соз- 
дают ссылку на хеш. Ссылка на хеш является скалярной величиной 
(как и любые другие ссылки), поэтому они не могут выступать в каче- 
стве значений хешей. Вероятно, автор этого программного кода наме- 
ревался присвоить значения ссылок скалярным переменным ($раѕѕеп- 
дег_1 и фраѕѕепдег_2). Эту трудность можно обойти, заменив фигурные 
скобки круглыми. 


Если вы попытаетесь запустить этот отрывок, Рег выведет диагности- 
ческое предупреждение. Если вы не увидели такого сообщения, воз- 
можно, вы забыли разрешить вывод предупреждений с помощью па- 
раметра командной строки -м или директивы иѕе магпіпоѕ. Даже если 
вы предпочитаете не получать предупреждения, тем не менее, в про- 
цессе отладки желательно включать эту возможность. (Сколько време- 
ни вам придется потратить для поиска аналогичных ошибок без ис- 
пользования предупреждений Рег1? Сколько времени потребуется, 
чтобы включить вывод предупреждений?) 
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Как быть, если сообщение с предупреждением получено, но вы не мо- 
жете понять в чем дело? В этом вам поможет страница справочного ру- 
ководства рег191ао. Разработчики Рег| вынуждены были сделать текс- 
ты сообщений с предупреждениями очень краткими, потому что они 
компилируются в исполняемый файл рег! (программа, которая испол- 
няет программный код на языке Ре!1). Но на странице рег101а9 вы най- 
дете полный перечень всех предупреждений, какие только могут вам 
встретиться, вместе с подробными описаниями причин, их породив- 
ших, потому что каждое сообщение — это определенная проблема, ко- 
торую следует исправить. 


Если вы слишком ленивы, чтобы за каждым разъяснениям обращать- 
ся к страницам справочного руководства, вставьте в программу дирек- 
тиву иѕе 0іадпоѕіісѕ;. В этом случае при появлении каких-либо ошибок 
Рег! будет извлекать из документации подробное описание возможной 
проблемы и выводить его на экран. Не оставляйте эту директиву по 
окончании отладки, в противном случае это приведет к снижению про- 
изводительности программы независимо от того, возникают ошибки 
или нет. 


Упражнение 2 


Прежде всего необходимо сохранить общее количество байт, послан- 
ное всем компьютерам, поэтому в самом начале мы определяем пере- 
менную $а11, куда записываем имя, которое будет обозначать все ком- 
пьютеры. Разумеется, это должно быть такое имя, которое не будет 
совпадать ни с каким другим именем существующего компьютера. Ис- 
пользование дополнительной переменной упростит процесс написа- 
ния программы и облегчит внесение изменений в будущем. 


ту $а11 = "*»а1] тасһіпеѕх*”; 


Цикл чтения файла практически не изменился по сравнению с тем, 
что дается в главе. Разве комментарии пропущены. Кроме того, цикл 
накапливает в элементе $а11 обтцее количество переданных байт. 


ту %ота1_руїеѕ 

мһ1і16е (<>) { 
пехЕ і? /7#/; 
ту (Фѕоигсе, $дез{1па{1от, $0уїеѕ) = ѕр11ї; 
фїо+а1_руїеѕ{ $ѕоигсе) {$0еѕтіпаїтіоп) += $руїезѕ; 
фіо+а1 руіеѕ{ $ѕоигсе)} {$а11} += $бутез: 

} 


На следующем шаге выполняется сортировка списка. В результате 
сортировки имена узлов-отправителей упорядочиваются в порядке 
убывания количества отправленных байтов. Затем этот список переда- 
ется внешнему циклу Гог. (Чтобы отказаться от использования проме- 
жуточного массива, операцию сортировки можно было бы вставить 
прямо в оператор Гог внешнего цикла.) 
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Приложение А 


ту @50игсеѕ = 
зогї { $Еофа1 буїеѕ{$0) {1 $а11} <=> $+ота1 буїеѕ{$а) {$а11} } 
кеуѕ %іота1_руїеѕ; 


Тог ту $зоигсе (@зоигсез) { 
ту @дез{1па{1отз = 
зогі { $+ота1 буіеѕ{$ѕоигсе} {$6} <=> $тофа1 рутеѕ{$ѕоигсе} {Фа} } 
кеуз %{ $1о+а1 руфез{$зоигсе} }; 
ргіпі "$зоигсе: всего передано $+о+а1 руез{$зоигсе} {$а11} байтов\п”; 
Ғог ту $@еѕїіпаііоп (@деѕііпаїіопѕ) < 
пехі і? $@еѕііпаїтіоп өд $а11; 
ргіпі " $зоигсе => $аеѕїіпатіоп:”, 
” фтота1 _рутеѕ { $ѕоигсе) { $@еѕііпаїіоп} байтов\п”; 


} 
ргіп “\п”; 
} 

Внутри цикла Гог создается отсортированный список узлов-получате- 
лей (аналогично списку $50игсез), а затем выводится общее количество 
байтов, переданных текущим компьютером. В процессе работы внут- 
реннего цикла Тог пропускается фиктивный элемент $а11. Значение 
этого элемента было выведено в заголовке группы, почему тогда нель- 
зя сразу вытолкнуть его из списка оператором $1111 и избежать необ- 
ходимости многократной проверки? Ответ на этот вопрос вы найдете 
в сноске.! Эту программу можно несколько упростить. Выражение 
фїо+а1_руїеѕ{ $ѕ0игсе) многократно задействуется при выводе данных 
во внутреннем цикле (и дважды во внешнем цикле). Это выражение 
может быть заменено скалярной переменной, инициализируемой в на- 
чале внешнего цикла: 


Тог ту $зоигсе (@зоигсез) { 
ту Фр = фіоа1 буїіеѕ{ $ѕоигсе}; 
ту @деѕііпаїіопѕ = зогі { $16->{$6} <=> $1р->{$а) } кеуз %$10; 
ргіпі "$зоигсе: всего передано $10->{$а11} байтов\п”; 
ту Фаеѕіпаііоп (@деѕііпаїіопѕ) { 
пехі і? $@еѕііпаїтіоп өд $а11; 
ргіпі " $зоигсе => $@еѕііпатіоп: $16->{$4е$1па{1оп} байтов\п”; 
} 
ргіп “\п”; 
} 
Такой прием делает программный код более коротким и (возможно) бо- 
лее быстрым. Добавьте себе еще одно очко, если эта мысль приходила 
вам в голову. И еще одно, если догадались, что такой прием уменьшит 
ясность программного кода, и потому отказались от него. 


1 Нет никаких гарантий, что фиктивный элемент обязательно попадет в на- 
чало списка, даже если последний отсортирован. Если узел-отправитель 
отправлял данные только одному узлу-получателю, то его общий исходя- 
щий трафик будет равен трафику с единственным узлом-получателем, 
а в этом случае элементы могут быть отсортированы как угодно. 


Ответы к упражнениям 
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Ответы к главе 6 


Упражнение 1 


Решение этого упражнения очень похоже на решение второго упраж- 
нения из главы 5, но на этот раз мы воспользуемся модулем Ѕїогар1е. 


иѕе Ѕїогар1е; 


ту $а11 = "*ха11 тасһіпеѕ**”; 
ту Фда+а #і1е = "То+а1 ру+еѕ. дата"; 


ту %ота1_бу+еѕ; 

11 (-е $0ата Ғі1е) { 
ту $да+а = геігіеуе фата Ғі1е; 
Фёота1 руїеѕ = %$аа+а 

} 


мһі1е (<>) { 
пехї і /78/; 
ту ($зоигсе, $аеѕёіпа+іоп, $6уез) = эр"; 


фтота1 _Бутез{$зоигсе } {Фаез{1па{1оп} += $Бутез; 
$Тота1 Буез{$зоигсе} {$а11} += фруіеѕ; 
} 


ѕіоге \%Тота1 руфез, $0аа ?11е; 
### остальная часть программы осталась без изменений 


В самом начале программы мы записываем в переменную имя файла, 
где будут храниться сведения о трафике за прошедшие дни. Затем из 
него извлекаются данные, но только в том случае, если файл уже су- 
ществует. 


После чтения данных из нового файла журнала полученная информа- 
ция о трафике снова записывается в файл данных. 


Если вы предпочтете записывать данные из хеша в файл в своем собст- 
венном формате, сделать это будет очень непросто. Проще говоря, что- 
бы решить это упражнение таким способом, нужно либо обладать не- 
обычайным талантом, либо потратить достаточно много времени, при 
этом почти наверняка ваши подпрограммы сериализации данных бу- 
дут содержать ошибки. 


Упражнение 2 


Вероятно, следовало бы проверять успех операций, производимых с по- 
мощью модуля Ѕ$їогар1е. Некоторые ошибки он перехватывает сам 
(и завершает работу программы), но в некоторых ситуациях он может 
возвращать неопределенное значение. За дополнительной информаци- 
ей по этой теме обращайтесь к документации модуля Ѕїогар1е. (Если 
вы добавили проверку возвращаемых значений функций ѕіоге и ге- 
їгіеуе, можете прибавить себе еще одно очко.) 
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Приложение А 


Неплохо было бы создавать резервную копию файла с данными (или 
обоих файлов), чтобы упростить откат к предыдущему состоянию 
в случае каких-либо ошибок. Фактически можно было бы предусмот- 
реть возможность создания нескольких резервных копий, например 
сохранить данные за истекшую неделю. 


Наверное, имело бы смысл добавить возможность вывода данных, даже 
когда программе не передается новый файл системного журнала. В том 
виде, в каком программа уже существует, этого можно добиться, если 
передать ей пустой файл (например, /де\у/пи11). Однако для достиже- 
ния этого должен быть предусмотрен более простой путь. Кроме того, 
функциональность вывода и обновления файла данных можно было 
бы полностью отделить друг от друга. 


Ответы к главе 7 


Упражнение 


ѕир даїћег_ тііте_беїмееп { 
ту($6е01п, Фепа) = @; 
пу @#11е5; 
ту Фодаїһегег = ѕир { 
ту $іітеѕтатр = (ѕїаі $_)[9]: 
ип1еѕѕ (деР1пед $1ітеѕіатр) < 
магп "Невозможно получить данные о $Рі1е:: Ріпа: : пате: $!, 
пропущено\п”; 
геигп; 
} 
риѕћ @#і1еѕ, $Е11е: :Е1п0: :пате і? 
фіітеѕтатр >= $6е01п апа $іітеѕатр <= фепа; 


}; 
ту $Еетспег = зиб { @211ез }; 
($даһегег, ФТефсНнег); 

} 


Эта подпрограмма довольно незатейлива. Основное требование заклю- 
чается в том, чтобы получить корректные имена элементов. Когда 
функция ѕіаї вызывается внутри подпрограммы обратного вызова, 
она получает имя файла в переменной $_, но когда имя файла возвра- 
щается вызывающей программе (или при выводе текста предупрежде- 
ния), оно извлекается из переменной $Ғі1е: .Е1па: : папе. 


Если функция ѕїіаї терпит неудачу, переменная $11тез{атр приобрета- 
ет значение ипдег. (Такое возможно, когда, например, будет найдена 
«битая» символическая ссылка на файл.) В этом случае подпрограмма 
обратного вызова просто выводит предупреждение и возвращает 
управление раньше времени. Если вы не будете выполнять проверку 
на неопределенное значение, то получите предупреждение при выпол- 
нении сравнения с переменными $0едіп и $епа. 
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Когда будет запущена программа, вызывающая данную подпрограм- 
му, на экране должен появиться перечень файлов, которые были изме- 
нены с прошлого понедельника (если, конечно, вы не задали другой 
день недели). 


Ответы к главе 8 


Упражнение 1 


В этом упражнении нам придется выводить данные тремя различны- 
ми способами: в файл, с которым вы уже знакомы, в скаляр (для этого 
потребуется Ре! версии 5.8) либо сразу и в файл, и в скаляр. Вся хит- 
рость в том, чтобы объединить все каналы вывода информации в одной 
переменной, которая будет использоваться оператором ргіпі. Если 
в качестве дескриптора файла будет выступать переменная, мы смо- 
жем определить тип выходного устройства во время исполнения про- 
граммы и соответственно реагировать на это. 


! Ичзг/6зп/рег1 
иѕе ѕїігісї; 


иѕе 10::Тее 


у $11; 
у $зса1аг 


ргіпї “Укажите, куда выводить данные [Зса1аг/Е11е/Тее]> “; 
у $Туре = <5т01\> 

17 Фуре =” /75/і ) { 

ореп $#һ, ">", \$зса1аг 


е1$1Р( $+уре = 
ореп $#һ, “> 


(1) 4 


151#( фіуре =” /71/і ) { 

ореп ту ФРіЈе #һ, ">", "$0. ои” 

ореп ту $зса1аг_Рй, ">", \$зса1аг 

ТН = 10::Тее->пем( ФҒі1е #һ, $ѕса1аг #һ ); 


Ф 


} 


у $9ате = 1оса1+іте; 

у $0ау о? меек = (1оса1їіте) [6] 
ргіпі ФЕН <<"НЕВЕ” 

дентификатор процесса: $$ 

Дата: $дате 

День недели: $@ау о? меек 

НЕВЕ 


ргіпї 5ТрООТ <<"НЕВЕ" 1? $+уре =” т/^[51]/1 
содержимое Ѕса1аг: 

$зса1аг 

НЕВЕ 
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В этой программе мы просим пользователя указать, куда следует вы- 
водить данные, и ожидаем, что он введет «ѕсајаг», «Ре» или «ее». 
После того как пользователь закончит ввод, по первому введенному 
символу мы определяем, что он имел в виду (для большей гибкости мы 
не учитываем регистр символов). 


Если пользователь выбрал «ѕсајаг», дескриптор открывается для вы- 
вода в скалярную переменную по ссылке. Если был выбран «ЁШе», от- 
крывается дескриптор файла. Файлу назначается имя, совпадающее 
с именем программы, которое извлекается из $0, с расширением .оиї. 
Если пользователь выбрал «фее» , создаются два дескриптора, один для 
вывода в файл, другой для вывода в скалярную переменную, после че- 
го оба дескриптора объединяются в объекте 10: :Тее, ссылка на кото- 
рый записывается в переменную $11. Независимо от того, какой метод 
выбран, в конечном счете используется единственная переменная $11. 


Не имеет никакого значения, откуда берутся данные для вывода, – это 
вопрос предпочтений. В данном случае мы выводим строку с текущей 
датой, которую получаем в результате вызова функции 1оса111те в ска- 
лярном контексте, а затем получаем номер дня недели, обращаясь к ней 
как к массиву. 


Кроме того, выводится идентификатор процесса (который находится 
в служебной переменной $$), это позволяет отличать друг от друга раз- 
ные попытки запуска программы. 


Наконец, если пользователь выберет вывод в скалярную переменную 
(как только в переменную, так и одновременно с файлом), содержимое 
скалярной переменной выводится на устройство 510007, чтобы дать 
возможность убедиться, что вывод произведен правильно. 


Упражнение 2 


иѕе 10::Е11е; 
ту %оитри(_папаТез; 
мһі1е (<>) { 
ип1е55 (/7(\5+):/) { 
магп "Имя не найдено, пропущена строка: $_"; 
пехі; 
} 
ту Фпаме = 1с $1; 
ту $Папа1е = ФоцфриЕ_Папа1ез{Фпате} ||= 
ІО: :Рі1е->ореп(">$пате. іпғо") || 
аіе "Невозможно создать файл $пате. по: $! "; 
ргіпї $папа1е $_; 
} 


В начале цикла из строки извлекается имя персонажа, для чего ис- 
пользуется регулярное выражение. В случае отсутствия имени выво- 
дится предупреждение. 


После того как имя будет получено, все символы в нем приводятся 
к нижнему регистру, чтобы информация о «МэриЭнн» и «Мэриэнн» 
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попадала в один и тот же файл. Кроме того, это удобно для именования 
файлов. 


На первом проходе цикла необходимо создать дескриптор файла. По- 
пробуем понять, как это делается. Оператор || имеет более высокий 
приоритет, чем оператор присваивания, вследствие этого он вычисля- 
ется в первую очередь. Если файл не может быть создан, программа за- 
вершается оператором 01е. Оператор | |= выполняет запись дескрипто- 
ра файла в хеш, а оператор = параллельно записывает его в перемен- 
ную $һапа1е. 


В следующий раз, когда из строки будет извлечено то же самое имя, 
оператор | |= не даст выполниться оставшейся части строки программ- 
ного кода. Запомните: форма записи $911119ап | |= $апуіһіпо эквивалент- 
на $01і12ідап = $911119ап || $апуіһіпод. Если переменная в левой части вы- 
ражения содержит значение «ложь» (например, ипіе?), она приобрета- 
ет значение правой части выражения, но только если оно соответствует 
значению «истина» (как, например, дескриптор файла), в противном 
случае значение правой части выражения даже не вычисляется. Таким 
образом, если хеш уже содержит имя персонажа, в переменную фһапі1е 
будет записано имеющееся значение, и повторно файл не создается. 


Совершенно необязательно было определять имена персонажей в тек- 
сте программы, поскольку они будут извлекаться из файла. И это пра- 
вильно, потому что в случае появления нового персонажа нам не при- 
дется изменять программу. Если чье-либо имя в исходном файле будет 
записано с ошибкой, для этого персонажа будет создан еще один файл 
с неправильным именем. 


Упражнение 3 


Сделать это можно следующим способом. Сначала необходимо про- 
смотреть все аргументы в массиве @ААС\/, отыскать элементы, которые 
не являются именами каталогов, и затем вывести сообщения с преду- 
преждениями для таких элементов. 


После этого мы снова просматриваем массив @АВб\ и отыскиваем эле- 
менты, которые являются именами каталогов. Затем список катало- 
гов, получившийся на выходе оператора дгер, мы передаем оператору 
пар, где каждая строка преобразуется в объект 10: :01г (пока будем счи- 
тать, что появление ошибок здесь невозможно). Получившийся в ре- 
зультате список каталогов записывается в массив @0іг һѕ, который за- 
тем просматривается в цикле Гогеасп, и каждый из его элементов пере- 
дается подпрограмме ргіпї сопїепї. 


Внутри ргіпї_сопїіепї не делается ничего необычного. Она просто пере- 
мещает значение первого аргумента в переменную $01 и затем исполь- 
зует его для просмотра и вывода содержимого каталога. 


#1 /иѕг/ріп/рег1 -м 
иѕе 5їгісі; 
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Приложение А 


иѕе 10::ріг 


ту @пої 91г$ = дгер { ! -а } @АВСҮ; 
Ғогеасһ му Ффпої діг ( @пої дігѕ ) { 
ргіпі "фпої діг не является каталогом! \п" 


} 
ту @аігѕ = дгер { -49 } @АНОМ; 

ту @діг һѕ = тар { Т0::01г->пем( $ ) } дгер { -а } @АНб\; 
Ғогеасһ ту $аһ ( @аіг һѕ ) { ргіпі соптептз( $0ћ ) }; 


ѕир ргіпї сопіепїѕ { 
ту Фаһ = $11: 


мһі1е( му Ф?і1е = Фаһ->геаа ) { 


пехїі 11( ФРі1е ед `.` ог $111е өд `..'); 
ргіпі "$Е11е\п” 
} 


Ответы к главе 9 


Упражнение 1 


ту @ѕогіеа = 
пар $_->[01, 
зогЕ { $а->[1] <=> $6->[1] } 
тар [$_, -$ $_], 
9106 “/Б1п/*" 


Применение оператора определения размера файла (-ѕ) обходится до- 
вольно дорого. Кэшируя результаты операции, можно сэкономить не- 
которое время. Сколько? Ответ на этот вопрос вы найдете в коммента- 
риях к следующему упражнению. 


Упражнение 2 


иѕе Вепсһтагк ам(11тетнезе) 
ту @Е11ез = 9106 "/ріп/*" 


їітећеѕе( -2, { 
Ога1пагу => а{ 
ту @гези1Е$ = зогЕ { -ѕ $а <=> -5 $6 } @ғі1еѕ 


р 
Ѕсһмагіғіап => а{ 
ту @зогтеа = 

пар $_->[0], 
ѕогі { $а->[1] <=> $6->[1] } 
пар [$_, -$ $ ], 
@Г11е5; 

}, 


}); 
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На ноутбуке Рэндала, где каталог /ріп насчитывает 33 элемента, реа- 
лизация обычного алгоритма (0г91пагу) показала скорость 260 итера- 
ций в секунду, а реализация на основе преобразования Шварца 
(Ѕсһмагїғјап) – 500 итераций в секунду. Таким образом, за счет услож- 
нения программного кода удалось получить почти двукратный при- 
рост скорости. Для каталога /е{с, насчитывающего 74 элемента, алго- 
ритм на основе преобразования Шварца оказался почти в 3 раза быст- 
рее. Вообще чем больше элементов необходимо отсортировать и чем 
дороже обходится вызов функции, тем больший выигрыш дает преоб- 
разование Шварца. Причем выигрыш совершенно не зависит от опера- 
ционной системы. 


В предыдущем издании этой книги мы допустили небольшую ошибку 
в этом отрывке программного кода, в результате чего преобразование 
Шварца выполнялось медленнее обычного алгоритма. Однажды Брай- 
ан, как раз когда читал лекцию по данной теме, обратил на это внима- 
ние и детально проанализировал его. С результатами его изысканий 
вы можете ознакомиться на веб-сайте Рег! МопКз: ЙИр://шши.рет- 
1топЁз.сот /«по4е 14=393128. 


Упражнение 3 


ту @аісііопагу ѕогїеа = 


пар $_->[0], 
ѕогі { $а->[1] стр $6->[1] } 
пар { 


ту $57119 = $; 
фоігіпо =” ЁГ/А-2А-Я/а-га-я/; 
фоігіпо =” їг/а-ға-я//са; 
[ $, $ѕїгіпо ]; 
} @іприЁ 118+; 


Внутри второго оператора пар, который исполняется первым, создает- 
ся копия $ _. (На тот случай, когда исходные данные не должны изме- 
няться.) 


Упражнение 4 


ѕир аата Ғог_раїћ { 
ту Фрай = ѕһіғі; 
ЇР (-Е Фран ог -1 $раїћ) { 
гефигпт опаде? 
} 
і? (-9 Фрай) { 
ту %а1тгесфогу 
орепаіг РАТН, Фрай ог діе "Невозможно открыть каталог $раїћ: $!"; 
ту @патеѕ = геааадіг РАТН 
с105е41г РАТН 
Тог ту Фпате (@патеѕ) { 
пехї і? $пате ед “”.” ог Фпаме ед " 
$а1гестогу{Фпаме} = дата Ғог раћ("$раїћ/Фпате"); 
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Приложение А 


} 
гефигп \%91гестогу; 
} 
магп "Фраїһ не является файлом или каталогом\п”: 
гетигп ипает; 


зи аитр_дафа_Тог_раен { 

ту Фрай = $1111; 

ту Фда+а = ѕһі?+; 

ту Фргеғіх = ѕһі?ё || ””; 

ргіпЕ "Фргеѓіхфраїћ”; 

ЇР (пої де?іпеа $дафа) { # обычный файл 
ргіп “\п”; 
гетигп; 


} 
ту %0і гесіогу = %$дажа; 
1? (%01гесїогу) { 
ргіпі ", содержит: \п"; 
Тог (ѕогі Кеуз %ігесїогу) { 
аитр даа Рог раћ($_, $91гесфогу{$_}, "Фргеғіх "); 


} 


} е1ѕе { 
ргіпі ”, пустой каталог\п”; 
} 
} 
Фитр_Чафа_Тог_раЕН(”.”, дафа_Тог_раЕН(”.”)); 


Добавляя третий параметр (префикс) при обращении к подпрограмме 
вывода, мы указываем, что в выводе необходимо сделать отступ. 


Когда подпрограмма рекурсивно вызывает сама себя, она добавляет 
в конец параметра $рге! 1х два пробела. Почему в конец, а не в начало? 
Потому что изначально префикс может содержать не только пробелы, 
а когда пробелы добавляются в конец, мы сможем задать префикс лю- 
бого вида. Например, подпрограмма может быть вызвана так: 


аитр даа Рог раїћ(".", дата Рог раїћ("."), "> "); 


При таком способе вызова каждая строка, выводимая на экран, будет 
предваряться указанным префиксом. Это позволит (в будущей гипоте- 
тической версии программы) использовать специального вида пре- 
фикс для выделения каталогов, расположенных в смонтированных то- 
мах МЕ (Меіуогк ЕПеѕуѕёет — сетевая файловая система), или других 
особых случаев. 


Ответы к главе 10 


Упражнение 1 


Ниже приводится один из способов. Начать надо с директив раскаде 
и изе ѕїг1ісі: 
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раскаде Оодароодоо: : дате; 
иѕе Ѕїгісі; 


Далее следуют описания массивов-констант, в которых хранятся на- 
звания дней недели и месяцев: 


@дау = ам(арк дип уап сен поп сеп кир) 
@топ = ам(диз под бод род сип уакс лин сен кун физ нап деп); 


Затем следует определение подпрограммы преобразования номера дня 
недели в название. Обратите внимание: к этой подпрограмме необхо- 
димо обращаться по имени 0002600900: : дате: : дау: 


ѕир дау { 
ту Фпит = $ћі?Т @ ; 
аіе "фпит - неверный номер дня недели” 
ип1еѕѕ Фпит >= 0 апа $пип <= 6; 
Фдау[$%пит]; 
} 


Аналогично определена подпрограмма преобразования номера месяца 
в его название: 


ѕир топ { 
ту Фпит = $ћі?Т @ ; 
аіе "фпит - неверный номер месяца“ 
ип1еѕѕ $пит >= 0 апа $пит <= 11; 
Фтоп[$пит ]; 


} 


И наконец, в конце пакета должно находиться обязательное выраже- 
ние, возвращающее значение «истина»: 


1; 


Этот файл с именем дате. рп должен находиться в подкаталоге 00дароо- 
доо одного из каталогов, перечисленных в списке @1\С, например в те- 


кущем. 
Упражнение 2 
Ниже приводится один из способов: 


иѕе Ѕїгісі; 
гедиіге '`Оодароодоо/аате. рт’; 


Далее получаем информацию о текущем времени: 
ту(Фѕес, Фтіп, Фһоиг, фидау, Фтоп, Фуеаг, Фидау) = 1оса1їіте; 


Затем с помощью описанных выше подпрограмм находим название 
дня недели и месяца: 


ту Фдау пате = Оодароодоо: : дате: : дау($мдау); 
ту Фтоп пате = Оодароодоо: : дате: : топ($топ); 


288 Приложение А 


По исторически сложившимся причинам номер года возвращается 
функцией 10оса1{1те как смещение относительно 1900 года; это обстоя- 
тельство необходимо учесть: 


Фуеаг += 1900; 
Наконец, выводим строку с датой: 


ргіпі "Сегодня $дау_пате, фтоп папе фтаау, Фуеаг. \п” 


Ответы к главе 11 


Упражнение 1 


Ниже приводится один из возможных вариантов. Прежде всего необ- 
ходимо определить класс Ап1та1 с единственным методом ѕреак: 


иѕе ѕїігісї; 
{ раскаде Апіта1; 
ѕир зреак { 
ту $с1аз$ = $һћіғі; 
ргіпЕ "$с1а55: ", $с1аз$->з0ипа, “!\п”; 


} 


Затем следуют определения классов отдельных животных, каждого со 
своим «голосом»: 


{ раскаде Сом; 

оиг @ІЅА = ом(Апіта1); 

ѕир зоипа { “му-у-у” } 

} 

{ раскаде Ногзе; 

оиг @ІЅА = ом(Апіта1); 
зиб зоипа { “иго-го” } 

} 

{ раскаде Ѕһеер; 

оиг @ІЅА = ом(Апіта1); 

ѕир зоипа { “бе-е-е” } 


} 


Определение класса Моизе несколько отличается из-за необходимости 
добавить некоторое примечание: 


{ раскаде Моиѕе; 
оиг @ІЅА = ом(Апіта1); 
зиб ѕоипа { “пи-пи-пи” } 
ѕир зреак { 
ту $с1аз$ = $1111; 
$с1азз->50РЕВ: : зреак; 
ргіпі "[меня не видно, хотя и слышно! ]\п”; 
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А теперь диалоговая часть программы: 


ту @багпуага = ( ); 
{ 
ргіпї “укажите название животного (пустая строка завершает программу): "; 
сһотр(ту Фап1та1 = <5Т01\№>) 
фапіта1 = ис?ігѕі 1с $апіта1; # преобразование в каноническую форму 
Іаѕї ип1ез$ $апіта1 =” /^(Сом|[Ногзе | Зпеер |Моџѕе)$/; 
ризй ёбагпуага, Фап1та1 
гедо; 


} 


Ғогеасһ ту ФБеазЕ (@рагпуага) < 
фреаѕі->ѕреак; 


} 


Эта программа выполняет простую проверку с помощью шаблонов, 
чтобы убедиться, что пользователь не ввел название неизвестного жи- 
вотного, например А1раса. Если этого не сделать, программа будет за- 
вершаться аварийно при попытке создать незнакомое животное. В гла- 
ве 14 рассказано о методе іѕа, позволяющем проверить, является ли 
название, введенное пользователем, именем класса, порожденного от 
класса Апіпа1, даже в том случае, если определение этого класса было 
создано после того, как была написана сама проверка. 


Упражнение 2 


Ниже приводится один из возможных вариантов. Прежде всего необ- 
ходимо определить базовый класс [1у1п9Сгеафиге с единственным ме- 
тодом ѕреак: 


иѕе Ѕїгісі; 
{ раскаде ІіуіпоСгеаїиге; 
зиб ѕреак { 
ту $с1аз$ = ѕһћіғі; 
і? (©) { # есть что сказать? 
ргіпі "$с1аз$: '@ '\п” 
} е1ѕе { 
ріп "$с1а55: ", $с1аѕ5->ѕоипа, “\п” 


} 


Человек (класс Регѕоп) является одной из форм жизни, поэтому опреде- 
ляем его как класс наследник от | іуіпоСгеаіџге: 


{ раскаде Регзоп; 
оиг @ІЅА = ом(іуіпоСгеа+иге) 
зир зоипа { “ля-ля-ля” } 
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Приложение А 


Далее следует определение класса Апіпа1, представители которого мо- 
гут издавать звуки, но не умеют говорить (говорят только с доктором 
Дулитлом): 


{ раскаде Апіта2; 
оиг @ІЅА = ом(1іуіпоСгеаіиге); 
ѕир зоипа { 91е “все Животные должны издавать какой-либо звук” } 
ѕир зреак { 
ту $с1аз$ = $1111; 
Ч1е “животные не умеют говорить!" і? @_; 
фс1аѕѕ->80РЕВ: : зреак; 


{ раскаде Сом; 
оиг @ІЅА = ом(Апіта1); 
ѕир зоипа { “му-у-у” } 


{ раскаде Ногзе; 
оиг @ІЅА = ом(Апіта1); 
зиб зоипа { “иго-го” } 


{ раскаде Ѕһеер; 
оиг @ІЅА = ом(Апіта1); 
ѕир зоипа { “бе-е-е” } 


{ раскаде Моиѕе; 
оиг @ІЅА = ом(Апіта1); 
зиб зоипа { “пи-пи-пи” } 
ѕир зреак { 
ту $с1аз$ = $1111; 
$с1аз$->50РЕВ: : зреак; 
ргіпі "[меня не видно, хотя и слышно! ]\п”; 


} 
Наконец, пробуем заставить человека что-нибудь сказать: 


Регзоп->зреак; # просто ля-ля-ля 
Регзоп->зреак( "Привет, Мир!“); 


Обратите внимание: основная подпрограмма ѕреак переместилась 
в класс |1 у1п9Сгеатиге, и это означает, что нам не нужно повторно опре- 
делять ее в классе Регѕоп. Однако в классе Ап1та1, прежде чем вызвать 
ЅЏРЕВ: :ѕреак, следует убедиться, что мы не заставляем животное гово- 
рить по-человечески. 


Это не единственный способ добиться желаемого. Аналогичные ре- 
зультаты можно получить, если определить класс Регзоп как подкласс 
Апіта1. (В этом случае класс іуіпдСгеаїиге можно было использовать 
в качестве базового не только для классов животных, но и для классов 
растений.) Но как в этом случае заставить говорить класс Регѕоп, если 
класс Ап1та1 не умеет говорить по определению? В этом случае метод 
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Регзоп::зреак должен был бы заниматься обработкой входного аргу- 
мента до или после (или вместо) вызова метода ЅЏРЕЋ: : зреак. 


Какой из этих способов лучше? Смотря какие классы будут вам необ- 
ходимы и как вы будете их использовать. Если предполагается добав- 
ление дополнительных функциональных возможностей в класс Апіпа1, 
которые потребуются и в классе Регзоп, то есть смысл породить класс 
Регзоп от класса Ап1та1. Если же эти два класса отличаются друг от 
друга и их объединяют лишь признаки, характерные для всех форм 
жизни (1 іуіпоСгеаіџге), то лучше отказаться от лишнего уровня насле- 
дования. Способность создавать самые оптимальные структуры насле- 
дования очень важна для программиста ООП. 


Нередко бывает, что, начав разработку программы одним способом, 
программист понимает, что необходимо провести рефакторинг и пе- 
рейти на другой способ реализации. Это довольно характерно для ООП. 
Поэтому особую значимость приобретает этап тестирования, который 
помогает убедиться, что в результате внесенных структурных измене- 
ний программный код не потерял свою функциональность. 


Ответы к главе 12 


Упражнение 
В первую очередь необходимо определить пакет Ап1та1: 


иѕе Ѕїгісі; 
{ раскаде Апіта2; 
иѕе Сагр ам(сгоаКк); 


и конструктор класса: 


## конструкторы 
зиб папеа { 
ге (ту $с1аѕѕ = $111) апа сгоак ” требуется имя класса” 
ту Фпате = $1111; 
ту фѕе1# = { Мате => $пате, Со1ог => $с1а$з->аеРаи1_со1ог }; 
рІеѕѕ $561?, $с1азз 


} 


Далее следуют определения виртуальных методов — методов, которые 
должны перекрываться в дочерних классах. Язык Рег не требует объ- 
являть виртуальные методы, но они прекрасно справляются с ролью 
элементов документации. 


## заглушки (должны быть перекрыты) 
ѕир аеғаи1ї со1ог { “коричневый” } 
зиб зоипа { сгоак “подкласс должен объявлять метод зоипа” } 


Далее следуют методы, которые могут работать как со ссылками на эк- 
земпляры, так и с именами классов: 


## методы классов/экземпляров 
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зиб зреак { 

ту Феіїһег = ѕһіғї; 

ри1пЕ феіїтһег->пате, ”: “, $еіїһег->ѕоџипа, “\п” 
} 
зиб пате { 


ту феіїһег = ѕһі?ї; 
ге? $еіїһег 
? феіїһег->{М№Мате} 
"феіїһег без имени” 


} 
ѕир со1ог { 
ту феіїһег = ѕһі?ї; 
ге? феііһег 
? Феіїһћег->{Со10г} 
: феіїһег->аеғаџ1+ со1ог 
} 


Наконец, методы, которые могут работать только со ссылками на эк- 
земпляры: 


## методы экземпляров 

зиб ѕеї пате { 
ге (ту $зе1Е = $1117) ог сгоак "требуется ссылка на экземпляр класса” 
$зе1Р->{Мате} = $111; 

} 

ѕир ѕеї_со1ог { 
ге?(ту $ѕе1#? = ѕһіҒі) ог сгоак "требуется ссылка на экземпляр класса” 
$зе17->{С010г} = 5һіЁ; 

} 

} 


Теперь, когда у нас имеется абстрактный базовый класс, можно при- 
ступить к описанию классов отдельных видов животных; 


{ раскаде Ногѕе; 
оиг @ІЅА = ом(Апіта1) 
ѕир зоипа { “иго-го” } 
} 
{ раскаде $ћеер 
оиг @ІЅА = ом(Апіта1) 
ѕир со1ог { “белый” } # перекрыть цвет по умолчанию 
ѕир зоипа { “бе-е-е” } # никакого “Молчания ягнят” 


} 


В заключение несколько строк программного кода, который проверит 
наши классы: 


ту Фу һогѕе = Ногзе->патей("мр. Эд”); 

фу һогѕе->ѕеї пате( "мистер Эд”) 

фу һогѕе->ѕеі со1ог("серый") 

ргіпі $їу һогѕе->пате, ”, цвет ", $1у һогѕе->со1ог, “\п" 

ргіпі опеер->паме, " окрашен в “, Ѕһеер->со1ог, ” цвет, издает звук ", Ѕһеер- 
>ѕоџпа, “\п” 
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Ответы к главе 13 


Упражнение 
Начнем с определения класса: 


{ раскаде ВасеНогзе; 
оиг @ІЅА = ам(Ногзе); 


Затем с помощью простой функции брпореп свяжем хеш %5ТАМОТМа$ 
с хранилищем: 


абтореп (оиг %5ТАМОТМ@$, "ѕтапдіпоѕ”, 0666) 
ог діе "Невозможно получить доступ к хранилищу: $! "; 


При создании экземпляра ВасеНогзе необходимо извлечь его показате- 
ли из хранилища или создать новую запись с нулевыми показателями: 


зиб папеа { # метод класса 
ту $зе1Е = ѕһі?і->Џ0РЕВ: : патед(@_) 
ту Фпате = $ѕе1#->пате 


ту @5{апд1п9$ = рі ``, $ЭТАМОТМС${Фпате} || “0000” 
@$зе1Е{ам(первых вторых третьих ни_одного)} = @ѕїапаіпоз 
ф561# 


} 
При уничтожении экземпляра его показатели необходимо сохранить: 


зиб ОЕЗТВОУ { # метод экземпляра, вызывается автоматически 
ту $зе1Е = $0111; 
Ф5ТАМОІМ№О5{$5е1#->пате} = "@$зе1Р{ам(первых вторых третьих ни_одного)}” 
$зе1Е->50РЕВ: : ВЕЅТАОҮ; 

} 


Завершают описание методы экземпляра: 


## методы экземпляров: 
зиб моп { $01->{м11$}++; } 
зиб р1асеа { ѕзһі?і->{р1іасеѕ)++; } 
зиб ѕһомеа { ѕһі?і->{ѕһомѕ }++; } 
зиб 1051 { ЅһіР->{1055е5)++; } 
ѕир ѕапаіпоѕ { 
ту $ѕе1# = $1111; 
јоіп ", ", тар "$зе11->{$_} $", ам(первых вторых третьих ни одного); 


Ответы к главе 14 


Упражнение 1 


Решить эту проблему можно множеством способов. Мы решили соз- 
дать пакет Мураїе в одном файле со сценарием, его использующим. Об- 
ласть видимости директивы раскаде Мураїе ограничивается программ- 
ным блоком. В самом сценарии не следует использовать директиву изе 
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Мубате, поскольку Рег! не сможет найти нужный файл. Кроме того, мы 
должны будем вызвать подпрограмму іпрогї, чтобы перенести имена 
подпрограмм в пространство имен пакета паіп. 


Чтобы подпрограмма АТО 0А) могла работать только с нужными под- 
программами, мы определили хеш %А110мей пеїћһодѕ, в котором будут 
храниться имена допустимых методов. В качестве значений ключей хе- 
ша выступают индексы в массиве, возвращаемом функцией 10са1їіпе. 
Есть еще одна проблема – функция 10са1їіпе ведет нумерацию месяцев 
и лет, начиная с нуля. Поэтому в массиве @00##56ї5 мы сохраняем сме- 
щения, которые необходимо добавить к соответствующим элементам 
в списке 10са1їіпе. На первый взгляд мы нерационально распоряди- 
лись памятью, выделив массив из 9 элементов для хранения всего двух 
значений, однако такой прием помог обойти два специальных случая. 


Далее нам нужен метод пем (или любой другой конструктор), который 
создавал и возвращал бы объект. В данном примере внутренняя струк- 
тура объекта не имеет большого значения. Мы просто будем создавать 
анонимный хеш, связанный с текущим пакетом (имя которого должно 
передаваться в первом аргументе, поэтому $_[0]). Кроме того, нам по- 
требуется определить метод 0Е5ТВ0Ү, который автоматически вызыва- 
ется при уничтожении объекта. Если этого не сделать, наш метод А0ТО- 
0А0 будет выводить предупреждение на неопределенный метод, когда 
будет пытаться обработать свой собственный метод 0Е5ТВОҮ (закоммен- 
тируйте объявление метода ОЕЗТВОУ и посмотрите, что произойдет). 


Внутри подпрограммы АЏТО 0А) имя метода запоминается в перемен- 
ной $пеїћоа, поэтому мы можем изменять его. Прежде всего надо уда- 
лить имя пакета так, чтобы осталось одно имя метода. Имя метода, как 
известно, находится в полном имени вслед за последней парой двоето- 
чий, поэтому с помощью оператора подстановки мы удаляем все, что 
находится перед этим. Получив имя метода, мы пытаемся отыскать 
ключ с таким именем в хеше %А110мей пеїћойѕ. Если имя метода не будет 
найдено, выводится сообщение об ошибке. Попробуйте обратиться 
к неизвестному методу. Для какой строки Рег! выведет сообщение? 


Если имя метода будет найдено в %А110мед пеіћойѕ, мы извлекаем зна- 
чение ключа, которое далее будет использоваться в качестве индекса 
в списке 1оса1{1те. Это значение запоминается в переменной $$11се_1п- 
ех, после чего эта переменная используется для извлечения данных 
из списка 10са111те и из массива @0##ѕеї. Мы складываем оба получен- 
ных значения и возвращаем в виде результата. 


Объяснение получилось довольно длинным, похоже, что нас ждет много 
работы, но сколько придется потрудиться, чтобы создать новые методы? 
Несколько часов? Несколько минут? А здесь нам достаточно добавить 
несколько имен в хеш %А110ме0_пеїћойѕ, а все остальное уже работает. 


#1 /иѕг/ріп/рег1 -м 
иѕе Ѕїгісі; 
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раскаде Мураїе; 
иѕе уагз ам(ФАУТОЕОАВ); 


иѕе Сагр; 


ту %А110меа пеїһодѕ = дм( дате 3 попіћ 4 уеаг 5 ); 
ту @0#Ғѕеї5 = 0000000 1 1900000); 


зиб пем { р1еѕѕ { }, $ [0] } 
зиб БЕЗТВОУ {} 
зи АЏТОГОАРЮ { 
ту Фпеһоа = ФАУТОЕОА 
фФтеіһоа =” $/.*:://; 


ип1е55( ехіѕїѕ ФА110омеа теїһћойѕ/ фтеїһоа } ) { 
сагр “Неизвестный метод: ФАЦТОГОАр”; 
гефигп; 


} 
ту $$11се_1паех = $А11омеа теїһоаѕ{ $те+һоа }; 


гефигп (Іоса1+іте)[%51ісе іпдех] + $0##ѕеїѕ[%511ісе іпаех]; 


} 


Мурате->ітрогї; # мы ее не использовали 
ту Фда+е = Мураїе->пем( ) 


ргіпЕ “День: ”. $дате->дате . “\п” 
ргіпі "Месяц: " . $дате->топіћ . “\п” 
рип "Год: " . $дафе->уеаг . “\п” 


Упражнение 2 


Этот сценарий выглядит точно так же, как и в ответе к предыдущему 


упраж 


нению, добавилась лишь подпрограмма ИМТ\ЕВЗА! : : дерид. В кон- 


це сценария мы добавили вызов подпрограммы ерид для объекта $дате. 
Никаких других изменений в модуле Мураїе не было. 


Мура 
ту $ 


зиб 


ргіп 


ргіпі 
ргіпі 


фадаї 


ге->ітрогї; # мы ее не использовали 
Чате = Мура+е->пем( ); 


ОМІМЕВЅАГ : : дебид { 
у $ѕе1ғ = ѕһіғі; 
рип '[’. 1оса1їіте . '] ‘’. јоіп '|'’, ©. 
} 
Е "День: ”. $дафе->дафе . “\п” 
"Месяц: ”. фаа+ъе->топїћ . "\п” 
"Год: " . $аате->уваг . “\п” 
е->ӣерид( “Я закончил" ); 


Как это согласуется с механизмом АТО 0А0? Не забывайте, что прежде 
чем обратиться к методу А0ТОІ0А0, Рег| сначала попытается отыскать 
требуемый метод в дереве наследования @15А, а затем в классе ИМТУЕВЗА(. 
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В данном случае Рег] найдет метод ИМТУЕВЗА|: : йерид прежде, чем оче- 
редь дойдет до вызова метода А0ТОГОАР. 


Ответы к главе 15 


Упражнение 1 


Модуль 00дароодоо/аїе. рп выглядит так: 


раскаде Оодароодоо: : дате; 
иѕе ѕїігісї; 

иѕе Ехрогїег 

оиг @ІЅА = ом(Ехрогїег); 
оиг @ЕХРОНТ = дм(дау топ); 


@дау = ам(арк дип уап сен поп сеп кир) 
@топ = ам(диз под бод род сип уакс лин сен кун физ нап деп); 
зи дау { 
у $пит = ѕћіғЕ @_; 
аіе "Фпит - неверный номер дня недели” 
ип1еѕѕ $пит >= 0 апа $пип <= 6 
дау[$пит]; 
} 
ѕир топ { 
у $пит = $111 @_; 
аіе “Фпит - неверный номер месяца“ 
ип1еѕѕ $пит >= 0 апа Фпим <= 11; 
топ[Фпит]; 
} 


А вот сама программа: 


иѕе Ѕїгісі; 
иѕе Оодароодоо: : дае дм(дау топ) 


у($зес, Фили, Фпоиг, Фидау, Фтоп, Фуеаг, Фидау) = 1оса1+іте 
у $Чау пате = дау($мдау) 

у Фтоп пате = топ($топ); 

Фуеаг += 1900 

ргіпі "Сегодня $дау_пате, $топ пате $тдау, Фуеаг. \п” 


Упражнение 2 


По сути ответ на это упражнение ничем не отличается от ответа на пре- 
дыдущее упражнение. Нам нужно лишь добавить программный код, 
который определит тег а11. 


оиг @ЕХРОНТ = ам(дау топ); 
ог Я%ЕХРОВТ_ТАбЗ = ( а11 => \@ЕХРОВТ ); 
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Все, что вставляется в @ЕХРОВТ_ТАб$, должно быть доступно через @ЕХ- 
РОВТ или @ЕХРОВТ_ОК. При описании тега а11 мы использовали ссылку на 
массив @ЕХРОВТ. Можно определить список и по-другому, чтобы эти два 
массива никак не ссылались друг на друга. 


оиг @ЕХРОНТ = ам(дау топ); 
оиг ЖЕХРОВТ_ТА@З = ( а11 => [ @ЕХРОВТ ] ); 


Осталось только изменить программу из предыдущего упражнения 
так, чтобы директива изе импортировала имена подпрограмм с помо- 
щью тега а11. 


Таким образом, измененный вариант основной программы должен на- 
чинаться со строк: 


иѕе 5їгісі; 
иѕе Оодароодоо: : дате дм(:а11); 


Ответы к главе 16 


Упражнение 


В данном случае для решения программный код писать не надо. Мы 
возьмем его из главы 12 и на его основе создадим дистрибутив. Основ- 
ная работа, которую придется выполнить, – это редактирование раз- 
ных файлов. 


Однако даже создать дистрибутив можно несколькими способами. Как 
только будет создана заготовка дистрибутива с помощью наиболее 
удобного для вас инструмента, вы можете попробовать разделить клас- 
сы и вынести их в отдельные файлы модулей. У вас могут получиться 
файлы Апіпа1. рт, Ногѕе. рп и т. д. Поместите их в каталог с оригиналь- 
ным файлом модуля .рп, который был создан с помощью инструмента 
создания модулей. Вам также потребуется изменить файл Маѓеѓіе.РІ, 
или Виі1а.РІ, чтобы добавить в него новые файлы модулей. Для этого 
просто следуйте примерам, которые уже имеются в файлах. И нако- 
нец, проверьте содержимое файла МАМ1РЕБТ и убедитесь, что в нем 
содержится полный список всех файлов. 


Закончив приготовления, запустите МаЁе{Це.РГ.. Это надо проделы- 
вать при каждом изменении данного файла. Если изменяются файлы 
модуля, придется также запустить команду таЁе, хотя это и так про- 
изойдет, когда будет запущена команда паке їеѕї или паке 01151. 


Когда все будет готово, запустите команду паке 915+. В текущем ката- 
логе появится новый файл архива. Если вам потребуется получить ар- 
хивный файл в формате 21Р, запустите команду паке 21р0151. Перемес- 
тите архив в другой каталог и распакуйте его. Когда вы запустите 
Мағе}іе.РІ,, вы не должны получить никаких сообщений об ошибках 
при условии, что все было сделано правильно. Если будут выведены 
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предупреждения, ликвидируйте проблему (скорее всего, дело будет 
в нехватке нескольких файлов) и повторите попытку. 


Ответы к главе 17 


Упражнение 


Начнем с тестового файла. Сначала напишем тесты (которые нельзя 
будет запустить, пока не будет написан сам модуль) и по мере их напи- 
сания будем продумывать интерфейс модуля. 


Для начала в блоке ВЕСІ\ проверим возможность подключения модуля 
с помощью директивы п зе Му: :1151::111. Очевидно, что на данном эта- 
пе этот тест будет терпеть неудачу, поскольку сам модуль еще отсутст- 
вует. Но об этом мы будем беспокоиться потом. 


Затем мы проверим наличие подпрограммы ѕип. После того как будет 
написана заготовка модуля Му: :[1$1: : 0411, тест изе_ок будет проходить 
без ошибок, а проверка наличия подпрограммы зип будет терпеть неуда- 
чу. В этом и заключается принцип разработки, управляемой тестами. 
Сначала вы определяете, что хотите получить, убеждаетесь, что тест не 
проходит, а потом пишете код, который заставит тест выполниться без 
ошибок. Обеспечить прохождение тестов гораздо проще, если не заду- 
мываться, почему не проходят тесты, которые и не должны проходить. 


После этого мы проверим работоспособность подпрограммы зип. Под- 
считаем несколько сумм, передавая разное число входных аргументов 
с разными значениями. Пока не будем останавливаться на каждом ча- 
стном случае (мы всегда сможем сделать это позднее), но нам нужно 
создать несколько тестов, которые проверяли бы подпрограммы раз- 
ными способами. Кроме обычных случаев суммирования мы добавим 
вариант, когда один из аргументов не является числом, и один вари- 
ант, когда оба аргумента не являются числами. 


Затем перейдем к подпрограмме ѕһиѓғ1е. Сначала проверим ее нали- 
чие, затем в качестве отправной точки создадим переменную Фаггау 
и сразу же скопируем ее в переменную $5һиѓ?#1ей; это даст нам возмож- 
ность не беспокоиться по поводу сохранности оригинала. Еще до того 
как мы приступили к разработке программного кода, мы решили, что 
массив лучше передавать по ссылке; это позволит подпрограмме про- 
изводить перестановку в самом массиве, а не вего копии. 


Затем надо проверить результат. Проверка будет очень простой. Мы 
сравним оригинальный массив с его измененной копией, для чего вос- 
пользуемся функцией спр_ок, которая вернет признак успешного про- 
хождения теста, если хотя бы две позиции в массивах будут отличать- 
ся. Наверное, для обеспечения хорошей реализации перестановки та- 
кой подход к тестированию может оказаться не слишком удачным, но 
это уже вопрос других тестов, разработку которых вы можете продол- 
жить самостоятельно. 
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ВЕСІМ{ изе_ок( '`Му::1151::0111' ) } 


иѕе Теѕї: :Моге ‘по р1ап' 


## # # бит 
ок( деғіпеа &ѕит, ‘Подпрограмма ѕит() определена’); 
1$( зит( 2,2), 4, 2 +2 = 4' ); 
1$( ѕит( 2, 2, 3 ), 7, 2 +2 +3 = 7 ); 

$( ѕит( ), 0, ‘вызов без аргументов дает 0` ); 

$( зит( -1), -1, '-1 = -1'); 

$( зит( -1, 1), 0, '-1+1=0’): 

$( зит( '@1пдег’, 5 ), 

5, "Строка + 5 = 5' ); 

1$( ѕит( ам(біпдег Магу-Апп) ), 


0, ‘Сумма двух строк дает значение 0’); 


В ЕЕ НН Пие 
ок( деғіпеа &5һиҒҒ1е, “Подпрограмма ѕһи#Ғ1е() определена"); 
у Фаггау = [9м арсӣе # )]; 


у $%һи??1еа = $аггау; 
ѕһи?ғ1е( Фәһиғ?1еа ); 


у $зате_соипЕ = 0; 


Ғогеасһ ту $іпаех ( 0 .. $#$аггау ) { 
фѕате соипі++ і? $5һиҒҒ1е->[$іпдех] ед $аггау->[$іпаех]; 


} 
стр_ок( $ѕате соџпї, '<’, $#Фаггау - 2, 
‘Различия обнаружены, по крайней мере, в двух позициях’); 


Теперь, когда имеется набор тестов, можно приступить к написанию 
кода. В процессе написания исходных текстов модуля мы будем запус- 
кать тесты. Сначала большинство тестов будет терпеть неудачу, но по 
мере добавления нового программного кода все большее число тестов 
будет проходить благополучно. Ниже приводится конечный вариант 
модуля: 


раскаде Му: : 1151: :0+11 
иѕе ѕїігісї; 


иѕе раѕе ам(Ехрогтег); 
иѕе уагз ам(@ЕХРОВТ $Ф\УЕВУТОМ); 


иѕе Ехрогїег 


ФМУЕВУТОМ = '0.10' 
@ЕХРОНТ = ам(зит ЅћиҒҒ1е) 


зи ѕћиҒҒ1е { # алгоритм перестановки Ріѕһег-Үаеѕ из рег1Раа4 
ту Фаеск = ѕһі?ї; # $0еск - ссылка на массив 
ту $1 = @$4еск 
мһі21е ($1--) { 
ту $] = іпї гапа ($1+1) 
@фаеск[$1, $3] = @$деск[ $}, $11; 
} 


300 Приложение А 


} 


ѕир зит { 
пу @аггау = @ ; 


ту $зит = 0; 

Ғогеасһ ту $е1етепї ( @аггау ) { 
фѕит += $е1етепі; 
} 

фѕип; 


} 
15 
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Упражнение 1 


Поскольку речь идет о дистрибутиве модуля, который был создан в уп- 
ражнении к предыдущей главе, у нас осталось не так много программ- 
ного кода, который необходимо написать. Чтобы добавить возможность 
тестирования документации в формате РОР, создайте файл ї/рой. ї (со- 
вершенно неважно, как вы его назовете) и добавьте в него следующие 
строки: 


иѕе Теѕї: : Моге; 

еуа1 “изе Теѕі: : Роа 1.00"; 

р1ап ѕкір_а11 => "Требуется наличие модуля Теѕї: : Роа 1.00 РОЮ” 1+ $@; 
а11_роа #і1өѕ ок( ); 


Назначение этих строк достаточно понятно: тест документации будет 
запущен только в том случае, если у пользователя установлен модуль 
Теѕі: : Роа. 


Аналогичным образом можно добавить проверку с помощью модуля 
Теѕї: :Роай: :Соуегаде, если на то будут серьезные причины. Создайте 
файл 1/рой соуегаде и вставьте в него программный код прямо из доку- 
ментации к модулю. 


В зависимости от того, какие инструментальные средства применялись 
вами для создания модуля, все эти файлы уже могут иметься в наличии. 


Упражнение 2 


Для нового модуля с тестами можно было бы создать отдельный дист- 
рибутив, но это совершенно необязательно. Вы можете просто вклю- 
чить его в состав дистрибутива, который уже был создан. Для этого 
достаточно сохранить файл модуля в нужном месте и добавить его 
в файл Макеїіе.РІ или Виіа.Рі.. 


Здесь мы не будем углубляться в объяснения и покажем лишь сам про- 
граммный код. Проверку $п == $п выполнить не так просто, как может 
показаться на первый взгляд, но мы постарались упростить реализа- 
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цию настолько, насколько это возможно. Большая часть программно- 
го кода была взята прямо из примеров, приводившихся в главе, а за- 
тем была добавлена реализация функции зипт_ок. 


раскаде Теѕї: :Му: :11$1: : 011; 
иѕе ѕїігісї; 


иѕе раѕе ам(Ехрогтег); 
иѕе уагз ам(@ЕХРОВТ $Ф\УЕВУТОМ); 


иѕе Ехрогфег 
иѕе Теѕї: :Виі1дег; 


у $Теѕі = Теѕї: :Виі1дег->пем( ); 


ФМЕВУТОМ = '0. 10"; 
@ЕХРОВТ = ом(ѕит оК); 


зиб ѕит ок { 
ту( Фасфиа1, $ехресїеа ) =@; 
1#( $асїџа1 = = $ехресїеа ) { 


фТеѕі->ок( 1 ) 
} 
е1ѕе { 
$Тез+->91а9( 
“Ошибка в сумме\п” 
"\ЕПолучено: Фасфиа1\п” 
"\ЕОжидалось: Фехрестед\п” 
); 
ФТеѕі->ок( 0) 
} 
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Упражнение 


Ну как, получилось? Мы и не ждали, что получится, поскольку еще 
в 1936 году Алан Тьюринг доказал невозможность общего решения. 
Более подробно о проблеме зависания можно прочитать в Википедии: 
Вир: / /еп.шікіреаіа.оге/иігі/ Найіпе ргоЫет (на русском языке: ћіір:// 
ти.шікіреаіа.оге/шікі/ Наііпе ртойет). 


В отличие от упражнений к предыдущим главам, здесь нам показать 
нечего. Теперь вы знаете, что такое тестирование, и знаете, что все де- 
лаете правильно, пока тесты проходят без ошибок (в противном случае 
тесты заканчивались бы неудачей). 


Мы отпускаем вас в реальный мир. Нам нечего больше добавить к то- 
му, о чем говорилось в этой книге. Теперь возвращайтесь назад и чи- 
тайте сноски. Удачи! 
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Специальные символы 


& (амперсанд), в ссылках на подпро- 
граммы, 92 
?: (знак вопроса с двоеточием), 
оператор, 169 
П (квадратные скобки), конструктор 
анонимного массива, 65 
(@ (коммерческое а? с подчеркивани- 
ем), список параметров, передавае- 
мых методу, 162 
\ (обратный слэш) 
как оператор взятия ссылки, 92 
как оператор получения ссылки, 45 
как разделитель имен каталогов, 85 
<=>, оператор, 121-122 
+ (плюс) 
начало конструктора анонимного 
хеша, 69 
перед именем переменной, 182 
$ (символ доллара с подчеркиванием), 
переменная, 28 
; (точка с запятой), начало блока кода, 
69 
{} (фигурные скобки) 
как директива объявления пакета, 
148 
как избавиться, 48 
конструктор анонимного хеша, 67 
разыменование ссылок на 
массивы, 46 
подпрограммы, 93 
хеши, 58 


А 


а] роа #1еѕ ок, функция, 260 
АОТОГОАФ, метод, 199 


ВЕСІМ, блоки 
изменение порядка исполнения, 39, 
142 
интерпретация директивы иѕе, 206 
статические локальные 
переменные, 107 
Без, оператор, 165 
ВоПа.РТ, файл, 218, 269 


С 


сап, метод, 197 
сап ок, функция, 247 
ССІ, модуль, 213 
Сһапееѕ, файл, 222 
Сазз::Ассеззог, модуль, 202 
С1аѕѕ::Мећоамакег, модуль, 202 
стр, оператор, 122 
стр оК, функция, 246 
соуег, программа, 262 
СРАМ“ (СотргеПһепѕіуе Рег1 Атсһіуе №еф- 
уогК – всемирная сеть архивов Ре!]), 
86 
использование номера версии, 225 
использование файла КЕАРМЕ, 221 
передача модулей, 267 
установка модулей, 87 
файлы с тестами, 242 
СРАМ Ѕеагсһ, веб-сайт, 37, 268 
СРАМ“ Тезегз, служба тестирования, 
271 
срап, программа, 41, 221 
срапр, программа, 41, 221 
СРАМРГО, модуль, 41, 221 
СРАМ№.рт, модуль, 41, 221 
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р 


-а, ключ командной строки, 77 
ГРаќѓа::Ритрег, модуль 
отображение данных с рекурсивной 
организацией, 132 
просмотр сложных структур данных, 
81 
РЕЅТКОҮ, метод, 180, 185 
"Реуе1::Соуег, модуль, 262 
"Реуе1::Соуегаве::Тиќогіа1, модуль, 262 
о, оператор 
совместное использование 
программного кода, 137 
Ритр, подпрограмма, 83 
Ритрег, подпрограмма, 81, 132 


Е 


_ ЕМО__, маркер, 226 
еуа1, оператор 
вложенные блоки, 28 
исполнение кода, созданного 
динамически, 27 
организация ловушек ошибок, 27 
отсутствие возможности перехвата 
фатальных ошибок, 28 
совместное использование 
программного кода, 137 
@ЕХРОВТ, переменная, 208, 224 
@ЕХРОВТ_ ОК, переменная, 208, 224 
%ЕХРОВТ_ТАС$, переменная, 210, 224 
Ехрог+ег, модуль, 208, 223 
Ех 015: :МакеМакКег, модуль, 218, 230 
Ех 015: :Мод/еМакКег, модуль, 217 


Е 


ЕПе::Вазепаше, модуль, 33 
ҒПе ехіѕіѕ ок, функция, 255 
ЕПе::Зрес, модуль, 85 


а 
стер, оператор, 23, 24, 86 


н 


ћ2х5, программа, 217, 218, 230 
НАБКМЕБ5 РЕКІ, БҰІТСНЕЅ, 
переменная окружения, 262 


-І, аргумент командной строки, 144 
ітрог+, подпрограмма, 207 
(@ІМС, переменная, 38, 142 
Ісегѕоп, Вгіап (УАМИ,, 83 
ІО::Ріг, модуль, 118 

ТО::ЕПе, модуль, 113 

ТО::Нап Фе, модуль, 112 
ТО::Зса]аг, модуль, 115 

ТО::Тее, модуль, 116 

15, функция, 245, 256 

іѕа, метод, 197 

(@ІЅА, переменная, 156, 196, 203 
іѕа ок, функция, 247 

131%, функция, 246 


[В 


НЬ, директива, 39 
Пке, функция, 246 


М 


таке 413%, команда, 284 
такКе діѕіеѕё, команда, 270 
таке іпѕёа, команда, 238 
таке +еѕё, команда, 232, 242 
таке, программа, 217, 229 
Маке Пе.РТ,, файл, 217, 269 
МАМТЕЕФЗТ, файл, 219, 269 
тар, оператор, 25, 86, 125 
Ма+һ:Віе1п+, модуль, 85 
МЕТА .уті, файл, 222 
Моапе::Ви]а, модуль, 218 
Моаише::Зёагег, модуль, 217 


о 


ок, функция, 244, 254 
оиг, спецификатор, 157 


Р 


РАТОВЕ (РегІ Аџіћогѕ Ор]оа4 Ѕегуег), 
учетная запись на сервере, 268 
Рег! 
версия, используемая в этой книге, 
31 
стандартный дистрибутив, 31 
Рег! Моачез, список, 268 
РЕВГ5ШВ, переменная окружения, 148 
ре!-раскгафз, список рассылки, 36 
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РОР, формат, 227, 260 
РКЕЕІХ, параметр, 281, 235 
РКЕКЕ РМ, параметр, 231 
ргіпё, оператор, 22 


К 


ВЕАШМЕ, файл, 220, 269 
геЁ, оператор, 169 
геапіге, оператор, 139, 206 
совместное использование 
программного кода, 139 
ВЕОБЕР АШОВЕБЬ, во время отладки, 
83 
геуегзе, оператор, 23 
геуегзе ѕогё, оператор, 122 


5 


ѕ, команда отладчика, 77 
Бса!аг:: 041, модуль, 193 

$зе1, переменная, 167 

БКІР, пропускаемые тесты, 250 
зогф, оператор, 22, 120 
ОТРЕВК, тестирование, 256 
ЭТРОСТ, тестирование, 256 
БфогаЫе, модуль, 84 

ЗОРЕБ::, псевдокласс, 185 


т 


Теѕё::ЕПе, модуль, 255 
Теѕі::Нагпеѕѕ, модуль, 242 
Теѕі::Гопе5ігіпе, модуль, 254 
Теѕі:: Мапіѓеѕі, модуль, 251 
Теѕё:: МоскОбјес+, модуль, 258 
Теѕё:: Моге, модуль, 238, 243, 244 
ТОРО, тесты, 249 
пропуск тестов, 250 
тестирование объектно-ориентиро- 
ванных особенностей, 247 
Тезѕі::МоМагпіпеѕ, модуль, 258 
Тезѕё::Оиёриї, модуль, 256 
Теѕё::Роа, модуль, 260 
Теѕё::Роа::Соуегағе, модуль, 261 
Теѕі::Уагп, модуль, 257 
«Тһе Ре! Јоџгпа1», 217 
ТОРО, тесты, 249 
+уреғ1ор, для работы с дескрипторами 
файлов, 109 


у 


ОМТУЕВЗАТ, класс, 196 

ипЦке, функция, 247 

и1$р1$, оператор, 142 

изе Базе, директива, 158 

изе ір, директива, 39, 142, 235 

изе, оператор, 33, 206 
отсутствующий список импорта, 34 
пустой список импорта, 34 
список импорта, 34 


үү 


уеакеп, подпрограмма, 193 
У!еаК Ве, модуль, 193 
УгцеМакКе{! Пе, подпрограмма, 230 


х 


х, команда отладчика, 77 


У 


УАМГ (Үеї Апоћег Магкир Гапхиасе — 
еще один язык разметки), 83 


А 


абстрактные методы, 202 
автовивификация, 69 
во время отладки, 77 
ссылки на хеши, 72 
анонимные 
массивы, 59, 65 
подпрограммы, 96 
скалярные переменные, 101 
хеши, 67 


Б 


базовые модули, 31 
базовый случай рекурсивного 
алгоритма, 128 
библиотеки 
подключение 
с помощью оператора Яо, 187 
с помощью оператора гедиіге, 189 
список каталогов поиска, 141 
блок сортировки, 121 
блоки 
ВЕСІМ, блоки 
интерпретация директивы изе, 
206 
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статические локальные 
переменные, 107 
интерпретируется как конструктор 
анонимного хеша, 69 
Брайан Фой (ап а №оу), соавтор книги 
Тез: :ЕПе, модуль, 255 
Теѕі:: Мапіѓеѕі, модуль, 251 
Теѕё::Роа, модуль, 260 


веб-сайты, СРАМ“ Ѕеагсһ, 37 
вложенные массивы, 49 
вложенные структуры данных, 49 
встроенная документация 
тестирование, 260 
формат, 227 


г 


глобальные переменные 
замыкания, 105 


Д 


данные с рекурсивной организацией, 
127 
отображение, 182 
построение структур, 129 
данные экземпляра 
дескриптор файла, 179 
данные экземпляра класса 
в хеше, 171 
доступ, 166 
дескрипторы файлов 
имена без префикса, 109 
ссылки 
ІО::ЕПе, анонимные объекты, 114 
ТО::ЕПе, объекты, 113 
ТО::Зса|аг, объекты, 115 
ІО::Тее, объекты, 117 
в скалярных переменных, 110 
деструкторы классов, 180 
Джаркко Хиетаниеми (ЈагкКо Ніеёапі- 
еті), СРАМ, ЕТР-сайт, 36 
дистрибутивы, 216 
Маке! е.РТ,, файл, 229 
таке іеѕё, команда, 232 
встроенная документация, 226 
формат, 227 
дополнительные каталоги 
с библиотеками, 235 


изменение каталога установки, 231 
передача в СРАМ, 267 

создание, 217 

тестирование, 232 

установка, 288 


Е 


замыкания, 99 
глобальные переменные, 105 
переменные 
ввод данных, 104 
статические переменные, 105 


И 


иерархия файловой системы, 
извлечение с помощью рекурсивного 
алгоритма, 129 
имена дескрипторов файлов без 
префикса, 109 
имена пакетов как разделители 
пространств имен, 146 
индексы 
косвенное решение, 86 
сортировка по индексам, 122 
инкапсуляция, 175 


К 


Кен Вильямс (Кеп \/ИПатз), 
Моде: :ВиПа, модуль, 218 
классы, 153 
абстрактные методы, 202 
вызов методов с именем класса, 169 
деструкторы классов, 180, 185 
как первый параметр в вызове 
метода, 154 
конструкторы, 168 
проверка возможностей объектов, 
197 
суперклассы, 161, 185 
конструкторы, 168 
анонимного массива, 65 
анонимного хеша, 67, 69 
наследование, 168 
конфликты имен, 144 


Л 


лексические переменные, 149 
доступ из замыканий, 100 
пакеты, 149 
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Линкольн Стейн (Глпсош Зет), 
ССІ, модуль, 213 
ложные объекты, тестирование, 258 


М 


маршаллинг данных, 84 
массивы, 43 
анонимные, 59, 65 
вложенные, 49 
выполнение однотипных действий, 
43 
используемая память 
и ее утилизация, 58 
модификация, 47 
разыменование ссылок, 46 
ссылки на массивы, 45 
элементы-ссылки, 60 
методы, 153 
АОТОГОАЮ, метод, 199 
РЕЗТВОУ, метод, 180 
абстрактные методы, 202 
вызов, 1538, 159, 166 
дополнительные параметры, 154 
вспомогательного метода, 155 
методов классов или методов 
экземпляров, 169 
класса ОМТУЕВБЗАТ, 196 
конструкторы, 168 
несуществующий, альтернативный 
метод, 199 
параметры, 170 
перекрытие, 158 
проверка наличия в иерархии 
наследования, 198 
синтаксис прямого и косвенного 
обращения к объектам, 186 
методы записи, 175 
АОТОГОАЮ, метод, 201 
для объектов, 172 
создание, 202 
методы чтения, 175 
АОТОГОАЮ, метод, 201 
создание, 202 
множественное наследование, 203 
модули, 31 
всоставе стандартного дистрибутива, 
81 
встроенная документация 
тестирование, 260 
формат, 227 


документация, чтение, 32 
зависимости между модулями, 40 
импортирование подпрограмм, 34 
с помощью директивы иѕе, 206 
с помощью подпрограммы ппрогф, 
207 
объектно-ориентированные, 223 
тестирование, 247 
экспортирование, 211 
объектно-ориентированные 
интерфейсы, 35 
передача в СРАМ, 267 
список каталогов поиска ((@ІМС), 38, 
39, 141 
установка из СРАМ, 37 
функциональные интерфейсы, 33 
экспортирование подпрограмм, 208 


н 


наследование, 154 
конструкторов, 168 
множественное, 208 


о 


область видимости директивы раскасе, 
148 
объектно-ориентированные модули, 85, 
223 
тестирование, 247 
экспортирование, 211 
объекты, 165 
абстрактные методы, 202 
вызов методов, 166, 169 
данные экземпляра 
дескриптор файла, 179 
данные экземпляра класса 
в хеше, 171 
доступ, 166 
методы записи, 172 
методы чтения, 175 
проверка возможностей объектов, 
197 
создание, 165 
уничтожение, 180 
в конце программы, 181 
вложенных объектов, 181 
особенности, 180 
ООП (объектно-ориентированное 
программирование) 
инкапсуляция, 175 
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когда используется, 151 
множественное наследование, 203 
наследование, 154 
конструкторов, 168 
операторы 
<=>, 121-122 
ореп, создание ссылки на дескриптор 
файла, 110 
«стрелка» 
вызов методов, 153, 159, 166 
разыменование ссылок, 52 
списков, 22 
отладчик 
вызов справки, 77 
просмотр сложных структур данных, 
76 
ошибки 
организация ловушек, 27 
предупреждения, 28, 140 
синтаксические, 29, 140 


п 


пакеты 
лексические переменные, 149 
область видимости, 148 
перекрестные ссылки, 62 
переменные 
анонимные скалярные переменные, 
101 
замыкания 
ввод данных, 104 
статические локальные 
переменные, 105 
лексические переменные 
доступ из замыканий, 100 
переменные класса, 190 
переменные экземпляра, 165 
в подклассах, 188 
дескрипторы файлов, 184 
статические локальные переменные, 
105 
переменные класса, 190 
переменные пакета 
область видимости, 149 
переменные экземпляра, 165 
в подклассах, 188 
дескрипторы файлов, 184 
подклассы, переменные экземпляра, 
188 


подпрограммы 
анонимные, 96 
в операторе отер, 23 
замыкания, 99 
импортирование из модулей 
с помощью директивы иѕе, 206 
с помощью подпрограммы ітрог+, 
207 
собственная подпрограмма 
импорта, 213 
импортирование подпрограмм 
всех и по отдельности, 34 
обратного вызова, 98 
переменные замыкания 
ввод данных, 104 
статические локальные 
переменные, 105 
ссылки на подпрограммы 
анонимные, 97 
всложных структурах данных, 93 
именованные, 91 
как возвращаемое значение, 101 
обратного вызова, 98 
разыменование, 93 
экспортирование, 208 
порядок именования пакетов, 146 
предварительная обработка данных, 72 
предупреждения, 140 
преобразование Шварца, 126 
пропуск тестов, 249 
прототип модуля, 223 


Р 


разработка модулей Тез$::*, 262 
разработка, управляемая тестами 
(Теѕі-"Ргіуеп РеуеІортепё), 238 
разыменование 
ссылок на массивы, 46, 52 
ссылок на хеши, 58 
регрессивное тестирование, 238 
рекурсивные алгоритмы, 128 


С 


сборщик мусора, 64 
синтаксис косвенного обращения 
к объектам, 186 
синтаксис прямого обращения 
к объектам, 186 
синтаксические ошибки, 140 
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скалярные переменные, 43 


анонимные, 101 

доступ по ссылке, 45 

ссылки на 
дескрипторы каталогов, 118 
дескрипторы файлов, 110 
хеши, 69 


слабые ссылки, 192 
сложные структуры данных 


извлечение, 86 
косвенное решение, 86 
преобразование, 89 
просмотр с помощью 
модуля раќѓа::ЮОитрег, 81 
отладчика, 76 
сохранение (маршаллинг), 84 
ссылки на подпрограммы, 98 


собственная подпрограмма импорта, 218 
совместное использование 


программного кода 
конфликты имен, 144 
ао, оператор, 187 
еуа1, оператор, 137 
геди1ге, оператор, 139 
причины, 135 


сортировка 


тар, оператор, 126 

зогф, оператор, 22, 120 

в обратном порядке, 122 
многоуровневая, 127 

по индексам, 122 
эффективность, 124 


списки 


в обратном порядке, 23 

в элементах массивов, 60 
операторы, 22 
преобразование, 25 
создание, 22 

сортировка, 22 
фильтрация, 23 


список каталогов поиска, 141 
ссылки, 43, 57 


копирование, 45, 57 
множественные ссылки 
на один и тот же элемент, 46, 57 

на дескрипторы каталогов, 117—118 
на дескрипторы файлов 

ІО::ЕПе, анонимные объекты, 114 

ТО::ЕПе, объекты, 113 

ТО::Зса]аг, объекты, 115 

ІО::Тее, объекты, 117 


в скалярных переменных, 110 
на массивы, 45 
на подпрограммы, 91 
анонимные, 97 
всложных структурах данных, 98 
именованные, 91 
как возвращаемое значение, 101 
обратного вызова, 98 
разыменование, 98 
на хеши, 58 
оператор обратного слэша, 45 
перекрестные ссылки, 62 
подсчет ссылок, 57 
вложенные структуры данных, 60 
ошибки при, 62 
сборщик мусора как 
альтернатива, 64 
получение значений скалярных 
переменных по ссылке, 45, 57 
слабые ссылки, 192 
удаление, 58 
стандартный дистрибутив, 31 
статические локальные переменные 
как переменные замыкания, 105 
степень покрытия тестами, 261 
строки 
сортировка, 120 
тестирование больших строк, 258 
суперклассы, 161, 185 


т 


тестирование 

таке їеѕё, команда, 232 

ОТРЕВВ, 256 

ОТРОЧТ, 256 

больших строк, 253 

встроенной документации, 260 

еще не реализованного программного 
кода, 249 

запуск тестов, 242 

искусство тестирования, 239 

ложные объекты, 258 

методики, 287 

объектно-ориентированные модули, 
2471 

причины, 287 

пропуск тестов, 249 

разработка модулей Тез$::*, 262 

разработка сценариев, 238 

степень покрытия тестами, 261 
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файлов, 254 
файлы с тестами в СРАМ, 242 
функции модуля Теѕё:: Моге, 244 


У 


утечки памяти, 63 


Ф 


файлы, тестирование, 254 

фильтрация списков, 23 

функциональные интерфейсы модулей, 
33 

функция вычисления факториала 
числа, 128 


х 


хеши, 43 
автовивификация, 72 
данные экземпляра класса, 171 
конструктор анонимного хеша, 67, 
69 
разыменование ссылок, 58 


Ч 


числа, сортировка, 121 


Ш 


Шварц Рэндал (соавтор) 
преобразование Шварца, 126 


Э 


Энди Лестер (Апу Іеѕёег), 
Моде: :З$ат4ег, модуль, 217 
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